
COMPILER "ENO.COMStI 


COMPILER "CIE" 1 If 
If Deno THEN 


SELECT <Ausdruck> 

Erklarung: 

Mit SELECT wird die SELECT-CASE Anweisung 
eingeleitet. Der hinter SELECT stehende Ausdruck Nird 
ausgewertet und auf eine Integer-Zahl abgebildet. Bei 
Stringausdriicken sind nur die ersten vier Zeichen von 
Belong. Abhangig von diesen einnal ernittelten Wert 
wlrd in die folgenden GftSE-Teile verzweigt, Oer 
Ausdruck Mird nur einnal zu Beginn bewertet, d.h. 


ELSE 
MOUSEOI 
F0RM_AI 
MOUSEOI 
EHDIF 

1 Je nad 
1 nur dei 
; ttllt i 

IF Spratl 

IF Spracl.w ,..w _ * „ 

IF Sprachc = Frani THEN PRINT "Salat !! C'cst un logklcl dclinonstratlDR' 

; 0cr Canpiler iibcrsettt inner nar eine der drel Blternatlven. 


fiir den anspruchsvollen Programmierer 


fill 
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vorbehalten. Kein Teil des Werkes darf in irgendeiner Form ohne ausdrilckliche 
schriftliche Genemigung der OMIKRON.Software vervielfaltigt oder auf Datentrager 
gespeichert werden. 

Haftung und Garande 

Das vorliegende Handbuch und die dazugehorigen Programme wurden mit der grofiten 
Sorgfalt erstellt. Trotzdem sind Fehler nie ganz auszuschliefien. Daher mochten wir 
darauf hinweisen, dafi wir weder eine Garantie fiir die Fehlerfreiheit geben noch die 
Haftung fiir irgendwelche Folgen, gleich ob durch Fehler im Handbuch, in der Software 
oder in der Hardware verursacht, ubernehmen konnen. Fiir die Mitteilung eventueller 
Fehler im Interpreter oder im Compiler sind wir jederzeit dankbar. 

Urheberrecht 

Ein Kopieren der OMIKRON.BASIC-Diskettenversion ist nur zu Sicherungszwecken 
erlaubt. Fiir Schaden, die dadurch entstehen, dafi das Original oder die Sicherungskopie 
in die Hande dritter gelangt, sind Sie haftbar. 

Gegen Raubkopierer werden wir mit gerichtlichen Schritten vorgehen. 




Vor Inbetriebnahme lesen! 


Diesem Produkt ist eine Kundenservice-Karte beigefiigt. Nur, wenn Sie diese Karte 
vollstandig ausgefiillt an uns senden, konnen wir Sie als rechtmafiigen Benutzer dieses 
Programms registrieren. 

Sie erhalten nur dann kostenlosen Support, und werden bei Updates Oder Upgrades 
informiert, 


Unsere Programme werden auf zweiseitig formatierten Disketten geliefert. Sollten Sie 
kein zweiseitig arbeitendes Laufwerk besitzen, iiberspielen wir Ihnen Itir Programm 
gerne auf einseitig formatierte Disks. Dazu senden Sie uns Ihre Diskette(n) bitte mit 
einem adressierten Riickumschlag zu. 



Befindet sich auf einer Diskette eine Datei READ_ME Oder LIESMICH, lesen Sie diese 
bitte zuerst durch. 

Bei einigen Produkten werden Sie beim ersten Aufruf des Programms aufgefordert, 
Ihren Namen und Ihre Adresse einzugeben. Diese Angaben werden auf Diskette 
gespeichert und von uns bei eventuellen Updates Oder Upgrades verwendet. 


3 Bevor Sie mit dem Programm arbeiten, sollten Sie dieses Handbuch unbedingt lesen. 
Erst dann werden Sie die Fahigkeiten des Programms voll ausschopfen konnen. 

Sollten Sie nach Studium des Handbuchs trotzdem Schwierigkeiten haben, wenden Sie 
sich an unseren technischen Support: dagbsh von 1<.0O bis 17.00 Uhr unter der 
Rufnummer 07231/35 60 35 Oder schriftlich, aber nur mit beigefugtem Support-Formular. 
Um Ihre Anfragen beantworten zu konnen, benotigen wir unbedingt folgende 
Informationen: 

- Systemkonfiguration (Rechner, Harddisk, Speicher, Zusatzhardware etc.) 

- Monitor, Auflosung 

- Typ und Version von Betriebsystem und Harddisk-Treiber 
- Programme im AUTO-Ordner, laufende Accesories 
- Version und Seriennummer des Programms 
- Fehlernummer, -beschreibung 
- und wie es dazu kam 


Bitte haben Sie Verstandnis dafiir, dafi wir nur registrierten Kunden diesen Service 
anbie ten konnen. 


Sollten Sie Ihr Programm gegen die neuste Version umtauschen wollen (Update), 
senden Sie uns die Originaldiskette(n) zusammen mit einem adressierten und 
frankierten Riickumschlag zu. 

Als auslandischer Kunde miissen Sie dieser Sendung eine grime Zollerkiarung 
(erhaltlich bei Ihrem Postamt) beifiigen. 



Wichtige Einleitung! 

Es ist soweit: Vor Ihnen liegt das neue OMIKRON.BASIC und wartet auf 
seine Inbetriebnahme. Dieses Handbuch soil Ihnen helfen, Ihren Atari ST 
und OMIKRON.BASIC optimal zu nutzen. Wir haben das Handbuch mit viel 
Miihe geschrieben und hoffen, dafi es verstandlich ist. 

Dennoch: Ein Handbuch ist keine Bettlektiire! Zumindest den ersten Teil 
(Erklarungen) sollten Sie ganz lesen - und die "Befehle, Funktionen und 
Operatoren" zumindest iiberfliegen; die Feinheiten der Beschreibungen 
kommen dann nach und nach, wenn Sie sie (ge)brauchen. 

Wichtig: Dieses Handbuch ist kein BASIC-Lehrbuch. Grundkenntnisse 
vom Computern im allgemeinen und von der Programmierung in BASIC 
im speziellen werden vorausgesetzt. 

In den OMIKRON. Basic-Interpreter 3.5 ist ein "kontextsensitives" Hilfe- 
System eingebaut. Sie konnen auf verschiedene Arten Hilfe zu den einzelnen 
Befehlen und Funktionen bekommen. Steht ein Cursor auf einem Befehl 
oder einer Funktion und Sie driicken die HELP-Taste, so bekommen Sie 
entsprechende Erlauterungen. Diese Erlauterungen konnen mit dem 
mitgelieferten MAKEHELP.PRG geandert und mit eigenen Notizen erganzt 
werden. 

Driicken Sie die HELP-Taste, ohne dafi dem Programm deutlich ist, wozu 
Sie gerade Hilfe suchen, werden Sie entsprechend gefragt. Es lohnt sich 
also, ab und zu ganz neugierig auf HELP zu driicken .... 

Telefonische Hilfe bekommen Sie wahrend unserer Suport-Zeiten (derzeit, 
also im Januar 1992: Mo, Mi, Fr jeweils von 14-17 Uhr unter 07231-356035) - 
am besten, nachdem Sie das Handbuch gelesen haben ... 

Auf Ihrer Programmdiskette finden Sie einen Ordner mit Demo- 
Programmen, was Ihnen einerseits viel eigenes Herumprobieren ersparen 
mag - und Sie anderseits dazu ermuntern soli. 

Vor dem ersten ’Herumprobieren’ sollten Sie eine evtl. auf der Diskette 
befindliche README- oder LIESMICH-Datei lesen. 

Bitte kopieren Sie OM-BASIC.PRG nicht in einen AUTO- Ordner! Pro- 
gramme, die im AUTO-Ordner stehen, werden nicht unter GEM gestartet. 
Sie hatten im Omikron.BASIC.PRG dann keine Alert-Boxen fur Lesefehler 
auf Disk; alle Grafikbefehle funktionierten nicht und einiges andere 
ebensowenig ... 

OM-BASIC.PRG wird ganz normal per Doppelklick gestartet. 

Gutes Lernen - und viel Erfolg mit Ihren eigenen Basic -Programmen! 
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Erklarungen zum 
Handbuch 


Gliederung des Handbuches 

Das Handbuch ist in drei Teile gegliedert: 

1. Erklarungen 

2. Referenzen 

3. Anhang. 

Im ersten Teil werden vor allem die beiden Editoren 
erlautert. 


des OMIKRON. BASIC 


Lm Referenzteil (dem grofiten Teil dieses Handbuchs) sind alle Befehle in 
alphabetischer Reihenfolge aufgefuhrt. 

omkromSc" finden Sie T,tell “ und interne <“>« 

Dieses Handbuch soli also iiberwiegend als Nachschlageweik dienen. Zum 
Lernen der Programmiersprache ist es nicht geeignet. Hierfiir empfehlen 
wir entsprechende Fachbiicher (z.B. "Das grofie OMIKRON.BASIC-Buch" 
Heim-Verlag, Darmstadt). 

Werden an einigen Stellen besonders "technisch-tiefschurfende" Hinweise 
gegeben, so sind sie mit "Fur Profis:" gekennzeichnet. Im allgemeinen 
werden Sie auch ohne das Verstandnis dieser Hinweise auskommen. 


Tasten 

Zu druckende Tasten stehen fast immer in eckigen Klammern: 

[Return], [K], [Help], [CTRL] fur Control usw. 

Die Pfeil-Tasten auf dem Cursor-Block sehen im Handbuch so aus- 

W W H W 

Manche Tasten kommen mehrfach auf der Tastatur vor - sowohl auf dem 
DIN- Block (links) als auch auf dem Ziffern-Block (rechts). 

Gewohnlich ist es gleich, ob Sie die Taste auf dem DIN- oder dem Ziffern- 
Block driicken; wenn nicht, steht ausdriicklich dabei, welcher Block 



gemeint ist. Eine Besonderheit ist die Taste [Return]; sie heifit auf dem 
Ziffernblock [Enter], hat aber genau die gleiche Funktion. 

Es gibt einige Tasten, die (fast) nur in Kombination mit anderen Tasten 
gedriickt werden: 

[Shift] 

[Alternate], abgekiirzt [ALT] 

[Control], abgekiirzt [CTRL], 


Wenn Sie mehrere Tasten gleichzeitig driicken sollen, steht zwischen den 
beiden Tasten ein Bindestrich: 

[CTRL]-[Insert] oder [Alternate] -[@] 


Schriftstile 

In diesem Handbuch verwenden wir neben der normalen Schrift noch 

diese Schrift fiir: 

- Programme zum Eintippen 

- BASIC-Befehle 

- Ausgaben des Computers am Bildschirm. 

Zur Grofi/Kleinschreibung 

Befehle sind hier im Handbuch immer komplett im Grofibuchstaben 
geschrieben: 

PRINT, OPEN, PCIRCLE etc. 

Bei Variablen, Labels, selbstdefinierten Funktionen und Prozeduren etc. ist 
hingegen nur der erste Buchstabe grofi, der Rest sind Kleinbuchstaben: 
(Ausnahme: Nach einem Unterstrich wird der darauffolgende Buchstabe 
wieder grofigeschrieben). 


Variablen: Anzahl, Masse etc. 

Prozedur bzw. Funktion: z.B. Type("Name“), FN Binomial(X.Y) 
Diese Form der Ausgabe wird auch im Listing verwendet. 


Beim Programmieren spielt es keine Rolle, welche Form der Grofi- und 
Kleinschreibung Sie verwenden. Die oben Angegebene ist lediglich die 
Form, die vom LIST-Befehl verwendet wird. 
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Syntax-Beschreibungen 

Syntax-Beschreibungen enthalten einige Sonderzeichen, die einer 
Erklarung bediirfen. 

<Zahl> Worte in diesen Klammern sind Beispiele. In diesem speziellen 
Fall konnte man z.B. 3 einfiigen. 

[STEP] Worte in diesen Klammern konnen ausgelassen werden. 

01.} Die Teilstiicke in diesen Klammern sind Auswahlen. Nur eines 
der Teilstiicke darf hier benutzt werden. 

A[A,...] Eine Syntax dieser Form bedeutet, dafi an dieser Stelle beliebig 
viele A’s eingegeben werden diirfen. 

TEXT In diesem Fall sollten Sie nicht einfach irgendeinen Text 
eintippen. Hier geht es darum, einfach ganz genau [T][E][X][T] 
einzutippen. 

<Parameterliste> Oft wird eine Syntax wie <Parameter'>,[<Parameter> ..] so 
abgekiirzt: <... Liste> 

Kompatibilitat zu MBASIC 

Wenn Sie bereits Microsofts MBASIC kennen, dann wird Ihnen der Umgang 
mit OMIKRON. BASIC nicht schwer fallen: OMIKRON.BASIC ist zu 99% 
MBASIC - komp atibel . Das bezieht sich auf die Ubertragung von MBASIC- 
Programmen auf OMIKRON.BASIC und nicht etwa umgekehrt: Unter 
OMIKRON.BASIC haben Sie einige Befehle mehr zur Verfiigung. Obwohl 
wir uns Miihe gegeben haben, kompatibel zu MBASIC zu bleiben, gibt es 
doch einige Dinge, die MBASIC von OMIKRON.BASIC unterscheiden. Diese 
Unterschiede stellen wir Ihnen hier in Kiirze vor. 

LOG - in MBASIC berechnet LOG(x) den natiirlichen Logarithmus. Unter 
OMIKRON.BASIC heifit dieser Befehl LN(x). 

MKS$, MKD$ - diese Funktionen wandeln Zahlen in das interne 
Fliefikomma-Format um. Weil die Fliefikommaformate der beiden BASIC- 
Interpreter nicht gleich sind, sind auch die Ergebnisse der beiden 
Funktionen in MBASIC und OMIKRON.BASIC nicht gleich. 

CVS.CVD - aus den oben angefiihrten Griinden sind natiirlich auch die 
Umkehrfunktionen zu MKS$ und MKD$ verschieden. 

Diese Inkompatibilitaten fallen aber nur auf, wenn in den mit MKS$ oder 
MKD$ erzeugten Strings 'Von Hand" manipuliert wird. 

DATA - wenn Sie Stringdaten ohne Anfiihrungszeichen in MBASIC in 
DATA-Zeilen einsetzen, werden diese als Strings behandelt. Unter 
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OMIKRON.BASIC wird ein solcher Stringausdruck ohne Anfiihrungsstriche 
(z.B.: HAUS) als Variable gelesen. Ein READ A gibt dann den Inhalt der 
Variablen HAUS zuriick, ein READ A$ fiihrt zu einem TYPE MISMATCH 
ERROR. 

DEFINT,DEFSNG,DEFDBL,DEFSTR miissen in OMIKRON.BASIC ganz am 
Anfang eines Programmes stehen und auch als erste Befehle eingetippt 
werden! 

Alle normalen Variablen (A,B,Haus,Laufvariable etc.) sind in 
OMIKRON.BASIC automatisch long-integer!!! Wenn Sie mit Float-Variablen 
arbeiten wollen, miissen Sie DEFSNG “A-Z" als erste Zeile ins Programm 
einfiigen oder hinter jede Variable das Postfix ! stellen 
(A!,B!,Haus!,Laufvariable!). 

RANDOMIZE gibt es in OMIKRON.BASIC nicht. Lassen Sie diesen Befehl in 
Programmer die Sie iibertragen wollen, einfach weg. 

RND(-X) gibt nicht den Startwert des Zufallsgenerators an, sondem eine 
ganzzahlige Zufallszahl. 

WIDTH gibt es in OMIKRON.BASIC nicht. 

ERASE gibt es in OMIKRON.BASIC nicht. Sie konnen ein Feld mit einem 
DIM- Befehl redimensionieren. 

CHAIN . ...ALL gibt es in OMIKRON.BASIC nicht. 

Der Formatstring bei PRINT USING ist in OMIKRON.BASIC etwas anders 
aufgebaut. Genaueres lesen Sie bitte unter PRINT USING nach. 

CLOSE loscht Strings in Dateibuffern, wie beim MB ASIC- Compiler. 

INPUT kann nur ganze Zeilen einlesen. Drei durch Komma getrennte Zahlen 

konnen nicht mit 

INPUT AtINPUT B:INPUT C 

eingelesen werden, sondem nur mit 

INPUT A,B)C 




Der Full-Screen-Editor 


Nach dem Sie OMIKRON. BASIC gestartet haben, haben Sie den 
sogenannten Full-Screen-Editor vor sich: Am oberen Bildschirmrand sehen 
Sie eine Meniizeile, ansonsten ist der Bildschirm komplett leer, bis auf eine 
Dialogbox in der Mitte des Bildschirms mit der Versionsnummer von 
OMIKRON.BASIC. Diese Box verschwindet, sobald Sie eine Taste (auch 
Maustaste) driicken oder ein Menii auswahlen. 

Im Full-Screen-Editor konnen Sie Ihren Programmtext eingeben oder 
bearbeiten. Der Full-Screen-Editor betrachtet alle Ihre Eingaben - egal, ob 
Sie Zeilennummern eingeben oder nicht - als Programm. 


Direkte Anweisungen werden also wie Programmzeilen ohne Zeilennummer 
behandelt. Weil es in diesem Editor zwei verschiedene Eingabemodi gibt, 
ist die Anweisung entweder ein Fehler (weil ihr keine Zeilennummer 
voransteht) oder eine vollkommen korrekte Programmzeile (weil Sie die 
Zeilennummern abgeschaltet haben). 

Abgesehen vom blofien Eintippen von Text, was jeder Editor beherrscht, 
bietet dieser Editor eine ganze Serie von Spezialfunktionen, die dazu 
gedacht sind, das Eintippen und Andern eines Programms zu vereinfachen. 
Dies beinhaltet automatische Suchfunktionen (wo habe ich die Variable A 
schon einmal verwendet?), Blockfunktionen und eine eingebaute 
Hilfestellung zu alien Befehlen/Funktionen und dem Editor selbst. 

Natiirlich gibt es auch Funktionen, um ein fertiges Programm abzu- 
speichern, es zu starten oder auch den Editor zu verlassen. Die meisten 
Funktionen konnen sowohl mit der Maus als auch mit der Tastatur 
eingegeben werden. 
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Wichtige Tasten im Full-Screen-Editor 

Das Hilfe-System 

[Help] aktiviert die eingebaute Hilfefunktion. Hierbei gibt es mehrere 
Moglichkeiten: 

- Sie driicken [Help]. Es erscheint eine Dialogbox am Bildschirm, in der sie 
einen Hilfetext lesen konnen. In diesem Text sind einzelne Worter fett 
dargestellt. Durch Mausklick auf eines dieser Worter wird ein 
dazugehoriger Hilfetext aufgerufen. 

- Sie driicken [Help] und der Cursor steht auf einem BASIC-Befehl oder 
einer BASIC -Funktion. In der erscheinenden Dialogbox am Bildschirm 
steht die Erklarung zu genau diesem Befehl. 

- Sie driicken [Help] und haben gerade ein Menu angewahlt, aber noch 
nicht die Maustaste gedriickt. Die Dialogbox erklart diesen Meniipunkt. 

Nahere Informationen iiber die Bedienung dieser Dialogbox finden Sie 
spater. 

Einfiige- und Uberschreib-Modus 

Grundsatzlich werden alle Zeichen, die Sie eintippen an der Stelle am 
Bildschirm dargestellt, an der der Cursor steht. Der Editor arbeitet dabei im 
Insert-Modus (engl.: insert - einfiigen) oder im Overwrite-Modus (engl.: 
overwrite - iiberschreiben). 

Zwischen Insert- und Overwrite-Modus konnen Sie leicht unterscheiden: 
Im Insert -Modus sieht der Cursor wie ein senkrechter Strich aus. Im 
Overwrite-Modus ist er ein blinkendes Rechteck. Vom Overwrite- in den 
Insert-Modus (und zuriick) kommen Sie iiber die Tastenkombination 
[Control] -[Insert]. 

Die Umkehrung zu [Delete] ist [Insert]: Es wird ein Leerzeichen eingefiigt, 
und der Rest der Zeile hinter der Cursorposition rutscht um ein Zeichen 
nach rechts. 

Einfiigen von Zeilen 

Im Insert-Modus konnen ganze Zeilen einfach durch Betatigen der 
[Return] -Taste eingefiigt werden. Die Leerzeile erscheint immer unterhalb 
der aktuellen Zeile. Der Cursor wird an den Anfang dieser Zeile gestellt. 
Wenn Sie also einige Zeilen in Ihr Programm einfiigen wollen, konnen Sie 
einfach mehrmals [Return] driicken. 
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Die Tastenkombination [Control] -[Return] bewirkt eine etwas andere 
Funktion: Hiermit wird die aktuelle Zeile in zwei Zeilen aufgespalten. 

Wenn Sie am Ende einer Zeile [Delete] driicken, wird die folgende Zeile an 
die aktuelle angehangt. 


Der Cursor 

Das kleine blinkende Quadrat, welches immer Ihre aktuelle Eingabe- 
position markiert, nennt sich Cursor. Mit den Pfeiltasten konnen Sie die 
Position des Cursors verandern, durch Mausklick auf die gewiinschte 
Position ebenso. 


Mit [Tab] riicken Sie den Cursor auf die nachste 8er-Spalte vor. 

Mit [Clr Home] bewegen Sie den Cursor an die erste Zeile des 
Programmtextes. 1st der Cursor schon in der ersten Zeile, so springt er 
durch [Clr Home] zur letzten Zeile. Sind Sie mitten im Programmtext, so 
konnen Sie durch zweimaliges [Clr Home] also an den Schlufi des 
Programmes kommen. 

An den Start Ihres Programms konnen Sie auch kommen, indem Sie 
[Control]-[Shift]-[r] driicken. Analog kommen Sie zur letzten Zeile mit 
[Control]-[Shift]-[4.], 

[Control]-[-»] und [Control]-] <-] bewegen den Cursor wortweise im Text. 
[Control] -[Shift]-]-*] und [Control] -[Shift] -[<-] bewegen den Cursor an das 
Ende Oder den Anfang einer Textzeile. 

Mit [Control]-[l] bis [Control]-[4] setzen Sie eine Marke an der aktuellen 
Cursorposition. Diese Marken konnen Sie mit [Alternate]-[1] bis 
[Alternate]-[4] wieder anspringen. Bitte beachten Sie: Die Ziffern "1" bis "4" 
miissen mit den Zifferntasten auf der Haupttastaur eingegeben werden. 
[Control]-[Delete] loscht den Rest der Zeile ab der Cursorposition. 

[Control]-[Shift]-[Delete] loscht die ganze aktuelle Zeile, ohne dafi die 
nachste Zeile hochriickt. 

[Shift] -[F9] Oder [CTRL]-[Y] machen fast das gleiche; hier rutschen die 
Zeilen unter dem Cursor aber nach oben. 


Sonstige Funktionen 

[Alternate] alleine, ohne eine andere Taste gedriickt, hat zwei Funktionen: 

- Abbrechen der Wiederholfunktion (Taste [F6]). 

- Abbrechen von Such- oder Ersetzfunktionen ([F2] oder [F3]). 
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Wenn Sie vor dem Verlassen einer Zeile [Undo] driicken, werden die 
Anderungen an dieser Zeile riickgangig gemacht. Aufierdem bricht [Undo] 
die meisten Funktionen ab, wenn Sie aus Versehen angewahlt wurden. 

Wenn Sie Texte eintippen, konnte es sein, dafi Sie einmal Zeichen eintippen 
wollen, die normalerweise als Steuerzeichen dienen. Fiir solche Falle geben 
Sie [CTRL] -[A] <[Taste]> ein. Dies ist z.B. bei der [Esc]-Taste nutzlich, 
wenn Sie Druckersteuercodes in Ihrem Progranun benotigen. 


Die Dialogboxen 

Wann immer der Full-Screen-Editor Eingaben von Ihnen benotigt oder 
Ihnen etwas mitteilen will, kommen Dialogboxen zum Einsatz. Alle diese 
Dialogboxen sind auch per Tastatur bedienbar. Hierzu befindet sich in 
jedem Knopf in der linken oberen Ecke ein kleines Zeichen. Wenn Sie die 
[Alternate] Taste zusammen mit der entsprechenden Taste driicken, wird 
die Funktion genauso ausgelost wie per Mausklick. 

Eine Taste ist in jeder Dialogbox moglich: Mit [Undo] beenden Sie die 
Dialogbox, ohne dafi sich etwas andert. Sie konnen also eine versehentlich 
aufgerufene Dialogbox immer mit [Undo] ’loswerden’. 

Bitte beachten Sie: Wenn in einem Knopf eine kleine Ziffer steht, ist auch 
hier die Haupttastatur gemeint. 

Alle anderen Funktionen verhalten sich genauso wie bei herkommlichen 
GEM-Dialogboxen. 

Eine Besonderheit stellt die Dialogbox des Hilfesystems dar: 

Fettgedruckte Worter sind Verweise auf andere Teile der Hilfe. Fiihren Sie 
auf einem fettgedruckten Wort einen Mausklick aus, wird sofort die 
Hilfestellung fiir dieses Wort geladen. 

Pfeiltasten am rechten Rand blattern in dem Hilfetext eine Zeile nach oben 
bzw. unten. Diese Funktion kann auch durch einen Druck auf die 
Pfeiltasten der Tastatur erreicht werden. 

"Previous": Die Hilfefunktion "merkt" sich die letzten Hilfestellungen. Durch 
einen Klick auf den Knopf "Previous" konnen Sie sich die letzten 
Hilfestellungen nochmals anzeigen lassen. 

"Exit":Uber den Knopf "EXIT" (oder die Taste [Undo]) verlassen Sie das 
Hilfesystem. 
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Die Dateiauswahlbox 

Zur Dateiauswahl wird die gewohliche Box des Betriebssystems verwendet. 
Es gibt jedoch eine Besonderheit: wird die Box ohne Auswahl eines Namens 
verlassen, wird der aktuelle Pfad auf den gerade geahlten Pfad umgestellt 
(z.B. beim Menii "LOAD"). Entsprechend wird bei "LOAD BLOCK" der 
Block-Pfad und die Block- Extension vermerkt, wenn Sie nach Einstellen 
des Pfades die Box ohne Namen mit "OK" verlassen. Sie konnen somit also 
dafiir sorgen, daB Blocke z.B. immer die Extension "*.BLK" tragen und 
zunachst im Verzeichnis "P:\" gesucht werden. Das schafft Ordnung und 
verhindert Verwechslungen zwischen Token-Format ("*.BAS") und ASCII- 
Format bei Blocken ("*.BLK"). 

Die Maus im Full-Screen-Editor 

Die Maus dient zum komfortablen Markieren und Kopieren vom Blocken. 
Man kann die Cursorposition neu setzen und schnell nach Querverweisen 
suchen. 

Markieren von Blocken: Driicken Sie die linke Maustaste. Bewegen Sie 
nun bei gedriickter Maustaste den Mauszeiger iiber den Text. Der 
iiberstrichene Text wird sofort schwarz unterlegt und somit als Block 
markiert. 

Man unterscheidet zwei Arten von Blocken: Den Spaltenblock und den 
Zeilenblock, 

Wenn Sie den Mauszeiger beim Markieren nur innerhalb einer Zeile 
bewegen, wird nur ein Teil dieser Zeile markiert (Spaltenblock). 
Verlassen Sie diese Zeile, so wird diese Zeile und alle folgenden als 
ganzes markiert (Zeilenblock). Um nur eine Zeile zu markieren, mufi der 
Mauszeiger ganz am linken Rand gefuhrt werden. 

Einfiigen von Blocken: Sobald ein Block markiert ist, wird er beim 
Driicken der rechten Maustaste an der Cursorposition eingefugt. 

Positionieren der Maus: Ein kurzer Klick mit der linken Maustaste stellt 
der Cursor auf die neue Position. 

Suchen von Querverweisen: Ein Doppelklick mit der linken Maustaste auf 
ein Wort (Basic-Befehl, Prozedurname Oder Variable) lost eine Suche 
nach eben diesem Wort aus. Es wird immer nach einem Token, also 
nach einem Basic -relevanten Wort, gesucht. Begriffe in 
Anfiihrungszeichen werden nicht gefunden (siehe auch Menii "FIND 
TOKEN"). Es erscheint eine Liste der gefundenen Textstellen an die 
durch Anklicken verzweigt werden kann. Wenn die neue Textstelle nun 
angezeigt wird kehrt man auf Wunsch mit [Control] -[Z] zum 
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Ausgangspunkt zuriick. Auf diese Weise karrn man sich sehr schnell 
einen Uberblick im Text verschaffen (z.B. "Wo ist eine Prozedur 
definiert, wo wird sie verwendet?"). Das Zurtickkehren mit [Control]-[Z] 
funktioniert mehrfach. Es werden bis zu acht Textstellen vermerkt. Man 
kann also mehrfach durch Doppelklick suchen und weiter verzweigen 
and sich durch mehrfaches Driicken von [Control]-[Z] bis zum 
Ausgangspunkt "zuriickhangeln". 


Die Meniipunkte im Einzelnen 

Die Menii-Zeile 

Die oberste Zeile ist wie bereits erwahnt die Menii-Zeile des Editors mit den 
Uberschriften FILE, FIND, BLOCK, MODE, GO und RUN. Dieses Menu 
konnen Sie genauso bedienen wie ein GEM-Menii. 

Im Gegensatz zu normalen GEM -Mentis konnen Sie hier auch auf die 
Uberschriften klicken. Es wird hierbei die jeweils erste Funktion im 
entsprechenden Menu ausgelost. Im FIND-Menii ware dies z.B. die 
Funktion FIND. 

Viele Meniipunkte konnen auch iiber die Tastatur ausgelost werden (z.B. 
[Control] -[O] fur "Load..."). Wenn ein Meniipunkt auch iiber eine 
Tastenkombination ausgelost werden kann, steht diese Kombination rechts 
neben dem Meniieintrag. Hierbei gelten folgenden Abkiirzungen: “ A " steht 
fur [Control], "jjj" steht fur [Alternate], "[*]" steht fiir [Shift]. 


Das FILE-Menii: 

"NEW" [ControlHN] 

Loscht das im Speicher befindliche Programm. Falls das Programm seit 
dem letzten Speichern geandert wurde, erfolgt eine Sicherheitsabfrage. Die 
Knopfe der erscheinenden Dialogbox haben hierbei folgende Bedeutung: 

"Yes" : Das Programm wird vor dem Loschen gespeichert. 

"No" : Das Programm wird geloscht. 

"Cancel": Die Funktion "NEW" wird abgebrochen. 

Ob sich das Programm geandert hat, konnen Sie iibrigens auch selbst 
jederzeit feststellen: Im Falle einer Anderung gibt der Editor vor dem 
Dateinamen einen Stern "*" aus. Sobald das Programm gesichert ist, 
verschwindet der Stern wieder. 
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"LOAD" [ControlHO] 

Ladt ein Programm von Diskette/Festplatte. Das Programm kann im 
internen Tokencode oder als ASCII- Datei vorliegen. Es erscheint eine 
Dateiauswahlbox, in der Sie das gewiinschte Programm auswahlen konnen. 


"LOAD BLOCK" [FZ]-[Shift]-[F8] 

Ladt einen Block von Diskette/Festplatte und fiigt ihn an der aktuellen 
Cursorposition ein. Der Block mull im ASCII-Format vorliegen und sollte am 
besten mittels "SAVE BLOCK" erstellt worden sein. Es erscheint eine 
Dateiauswahlbox, in der der Name des Blockes ausgewahlt werden kann. 


"SAVE" [Control]- [S] 

Speichert das im Speicher befindliche BASIC -Programm unter dem 
aktuellen Namen im internen Tokencode ab. Auflerdem werden die Marken 
im Programm mit abgespeichert und sind nach dem Laden sofort wieder 
verfiigbar (fur die Dauer-Verwendbarkeit vom Marken wichtig). 
Desweiteren werden mit dem Programm abgespeichert: Die Cursorposition, 
die Blockmarken und die Bildschirmeinstellungen (Font/Grosse ...). All 
dieses ist nach dem Laden genau wieder wie beim Abspeichern des 
Programms (erheblich komfortabler als bei alteren BASIC -Versionen). 

Der aktuelle Name (unter dem das Programm gespeichert wird,) wird in der 
rechten oberen Ecke, neben den Meniititeln angezeigt. Lautet dieser Name 
"NONAME.BAS" erscheint beim Speichern eine Dateiauswahlbox. In alien 
anderen Fallen wird das Programm ohne Dateiauswahlbox abgespeichert. 


"SAVE AS" [Control]-[M] 

Speichert das im Speicher befindliche Programm im internen Tokencode 
ab. Im Gegensatz zu "SAVE" wird bei dieser Funktion jedesmal mittels einer 
Dateiauswahlbox der Name der Datei erfragt. Dieser Name wird dann zu 
dem aktuellen Namen erklart und rechts oben angezeigt. Ansonsten gilt das 
unter "SAVE" Gesagte. 

"SAVE BLOCK" [F7]-[F8] 

Speichert den zur Zeit markierten Block (s. BLOCK-Menii) im ASCII- 
Format ab. Hierzu wird der Dateiname iiber eine Dateiauswahlbox erfragt. 
Ein so gespeicherter Block kann mittels "LOAD BLOCK" wieder eingelesen 
werden. 
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PRINT" [Control]-[P] 

Druckt das im Speicher befindliche Programm auf einem angeschlossenen 
Drucker aus. Es erscheint eine Dialogbox, in der die Breite des Ausdrucks 
(Anzahl Zeichen pro Zeile) eingegeben werden kann. Anschliefiend wird 
das Programm ausgedruckt. Falls eine Zeile des Programms langer als die 
angegebene Maximallange ist, wird sie abgeschnitten und in der nachsten 
Zeile fortgesetzt. Allerdings wird sie in der nachsten Zeile soweit 
eingeriickt, dafi sie unter dem Anfang der letzten Zeile - also hinter der 
Zeilennummer - steht. 


"DIRECTORY" 

Gibt das Inhaltsverzeichnis eines Laufwerks/Ordners aus. Es erscheint eine 
Dialogbox, in der angegeben werden kann, welcher Pfad und welche 
Dateien angezeigt werden sollen. Es gelten hier die gleichen Regeln wie bei 
der Dateiauswahlbox. Sollen z.B. alle Programme im Ordner "COMPILER" 
auf dem Laufwerk D: angezeigt werden, miissen Sie eingeben: 

D:\COMPILER\*.PRG 

Anschliefiend wird das Inhaltsverzeichnis angezeigt. Nach jeweils einer 
Bildschirmseite werden Sie aufgefordert, eine Taste zu driicken. Nachdem 
alle Dateien angezeigt worden sind, wird nochmals auf einen Tastendruck 
gewartet und anschliefiend in den Editor zuriickgesprungen. 


"DIRECT MODE" [Control]-[C] 

Springt in den Direktmodus - einen Bildschirmeditor, der weiter unten 
naher beschrieben wird. In diesem Bildschirm werden iibrigens alle 
Ausgaben Ihres Programms gemacht. Wenn Sie in den Direktmodus 
wechseln, baut OMIKRON.BASIC den Text wieder auf, der beim letzten Mai 
dort stand. 

Mit der Taste [Help] kommen Sie jederzeit wieder zuriick in den Full- 
Screen-Editor. 


"QUIT" [ContaolHQ] 

Verlafit den Full-Screen-Editor und OMIKRON.BASIC. Falls an Ihrem 
Programm seit dem letzten Speichern Anderungen vorgenommen warden, 
erscheint wie bei "NEW" eine Dialogbox: 

'Yes" : Das Programm wird vor dem Verlassen des BASIC gespeichert. 

"No" : OMIKRON.BASIC wird verlassen, das Programm nicht gesichert. 

"Cancel": Die Funktion "QUIT" wird abgebrochen. 



Das FIND-Menii: 

FIND" [ControI]-[F] 

Sucht nach einem Text innerhalb Ihres BASIC-Programms. Es erscheint 
eine Dialogbox, in der Sie den Suchtext eingeben konnen. 

Es wird ab der Cursorposition gesucht. Gibt man auf die Frage SEARCH 
FOR: nichts ein (also nur [Return]), so wird derselbe Text wie bei der letzten 
Suche wieder gesucht. 

Beispiel: Sie suchen die Stelle in einem Basicprogramm, an der die 
Fakultats-Funktion verwendet wird. Dann driicken Sie [Clr-Home] (um 
nach ganz oben zu kommen) und wahlen “FIND" im Menii “FIND" an; auf die 
Frage: SEARCH FOR: geben Sie [F][A][C][T] und [Return] ein. Der Editor 
findet nun (z.B): 110 PRINT FACT(N!) 

Sie suchen weiter: "FIND" anwahlen und [Return] - und der Editor findet die 
nachste Stelle, an der die FACT-Funktion verwendet wird. 

Bei der Eingabe des Suchtextes sollten Sie beachten, dafi Leerzeichen vor 
dem Cursor anerkannt werden, hinter dem Cursor nicht. 


"FIND NEXT" [Control]-[G] 

Sucht ab der Cursorposition das nachste Vorkommen des Textes, den Sie 
bei "FIND" eingegeben haben. In obigem Beispiel konnten Sie also nach 
dem ersten Auftauchen von FACT auch durch Auswahlen dieses 
Meniipunktes weitersuchen. 

"FIND TOKEN" [Control]-[T] 

Um diese Funktion zu erklaren, mufl zunachst etwas weiter ausgeholt 
werden: Alle bisher besprochenen Suchfunktionen konnen nicht zwischen 
Grofi- und Kleinschreibung unterscheiden. Wenn Sie also nach einem 
kleinen "a" suchen, finden Sie auch alle grofien "A"s. 

Alle bisher besprochenen Funktionen suchen nach Zeichenketten. Das 
bedeutet, dafi Sie bei der Suche nach einem "A" z.B. auch alle "DATA"- 
Befehle finden wurden. Dies kann sehr argerlich sein, wenn Sie zum Beispiel 
xiberall die Variable "A" zu "Mehrwertsteuer" umbenennen wollen. Stellen 
Sie sich einmal vor, wie der "DATA"-Befehl danach aussehen wiirde! 

Aus diesem Grund gibt es im FIND-Menii die vier Eintrage FIND TOKEN..., 
LIST TOKEN..., FIND DEF... und RENAME TOKEN. Unter einem "TOKEN" 
versteht man im Computerdeutsch einen Bestandteil Ihres Programms (und 
zwar aus der Sichtweise des Computers). Hier ist also nicht ein Stuck 
Programmtext gemeint, sondern ein BASIC-Schliisselwort aus Ihrem 
Programm. Wie Sie vielleicht schon wissen, iibersetzt das OMIKRON.BASIC 
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schon beim Eintippen ein Programm in eine kiirzere, dem Computer 
einfacher verstandliche Form. Dies betrifft nicht nur BASIC-Befehle, 
sondern auch Variablen, selbstdefinierte Prozeduren und Funktionen oder 
Labels. Jedes dieser Teile bekommt intern eine Nummer. Mit den TOKEN- 
Funktionen suchen Sie nach diesen internen Nummern. 

Der "DATA"-Befehl hat z.B. die Nummer 27, eine Variable mit Namen "Data" 
hingegen hat mit Sicherheit eine andere Nummer. Natiirlich finden Sie mit 
dieser Art der Suche nicht Bestandteile von Zeichenketten oder Ahnliches. 
Nur vollstandige Schliisselworter Hues Programms werden gefunden. 

Wenn Sie also mit FIND TOKEN nach der Variable "A" suchen, finden Sie 
auch tatsachlich nur jedes Vorkommen dieser Variablen und nicht noch alle 
"DATA'-Befehle oder alle Stellen, wo z.B. "A" in einer "PRINT" -Anweisung 
enthalten ist. Sie finden auch nicht die Variable "Angebot$", denn diese hat 
ja eine andere Nummer als "A". 

Hier ist eine Liste der Dinge, die Sie mit FIND TOKEN finden konnen: 

A - Variable 

Hallo%L - Variable 


PRINT 

Hallo() 

HalIo(„) 
-Eingabe 
FN Fibonacci) 
PROC Ausgabe 
P Ausgabe 
30 


- Befehl 

- Feldvariable mit einem Index. Z.B. Hallo(8), aber nicht 
Hallo(8,3) 

- Feldvariable mit drei Indices. 

- Label 

Funktion mit einem Parameter 

- Eine Prozedur 

- Ebenfalls eine Prozedur 

- Zeilennummer, auf die mit GOTO, GOSUB oder 
RESTORE verwiesen wird. 


Da in einem Programm Variablen und Prozeduren die gleichen Namen 
haben konnen, ist es wichtig, bei den TOKEN-Funktionen Prozeduren ein 
"P" voranzustellen und Labels den Strich Wenn es mehrere Prozeduren 
"Ausgabe" gibt, die sich nur in der Anzahl Parameter unterscheiden, dann 
konnen Sie auch dies klarmachen: “P Ausgabe() n meint die Prozediu mit 
einem Parameter, wahrend "P Ausgabe(„)" die Prozedur mit drei Parametern 
meint. Wenn es nur eine Prozedureoder Funktion "Ausgabe" gibt, konnen 
Sie die Parameterangaben weglassen. 

FIND TOKEN verhalt sich ansonsten genauso wie FIND. 

Zusatzlich zu dem Meniipunkt "FIND TOKEN" gibt es noch eine weitere 
Moglichkeit ein bestimmtes Token zu suchen: 
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Der Doppelklick auf ein Wort. Er bewirkt im Prinzip das gleiche wie LIST 
TOKEN mit diesem Wort. OMIKRON.BASIC versucht allerdings selbstandig 
herauszufinden, ob dieses Wort eine Variable, ein Label, eine Prozedur oder 
eine Funktion ist. Wenn das Wort mehrere Bedeutungen hat, kann es sein, 
daft Sie nicht das finden, was Sie gesucht haben. Versuchen Sie also bitte, 
eindeutige Bezeichner zu verwenden. Wenn das angeklickte Wort 
iiberhaupt nicht als Token vorkommt, wird nur die LIST TOKEN Funktion 
angewahlt, aber noch nicht ausgefiihrt. Sie konnen dann das Wort noch 
editieren. (Vgl. "TO LAST MARK" im GO-Menii). 

"FIND DEF" 

Sucht nach der Definition eines Tokens. Wenn Sie also z.B. wissen wollen, 
wo die Prozedur Ausgabe_Test definiert wurde, wahlen Sie "FIND DEF" an 
und geben in der erscheinenden Dialogbox "p Ausgabe_Test" ein. Bitte 
beachten Sie: Mit dieser Funktion konnen Sie die Definition von Prozeduren, 
Funktionen und die Position von Labels finden. Bitte beachten Sie: Wenn Sie 
eine Prozedurdefinition suchen, miissen Sie vor den Namen der Prozedur "P" 
schreiben, suchen Sie eine Funktionsdefiniton, schreiben Sie bitte "FN" und 
bei einem Label vor den eigentlichen Namen. 

"FIND ERROR" 

Stellt den Cursor auf den nachsten SYNTAX ERROR oder TYPE MISMATCH 
ERROR. Logische Fehler konnen vom Interpreter nicht automatisch erkannt 
werden. 

"LIST" [F2]-[F3] 

Listet alle Stellen auf, an denen ein bestimmter Suchtext auftritt. Sie konnen 
damit leicht feststellen, an welchen Stellen Sie z.B. die Variable Eingabe$ 
verwendet haben. 

Nach Aufruf dieser Funktion erscheint eine Dialogbox in der Sie den 
Suchtext eingeben konnen. Wenn Sie den "OK"-Knopf anklicken oder 
[Return] driicken werden die gefundenen Texte aufgelistet. Wenn Sie den 
Knopf "PRINTER PROTOKOLL" anklicken, werden die gefunden Texte auf 
dem angeschlossenen Drucker ausgegeben. Wollen Sie dies doch nicht 
konnen Sie diese Funktion durch nochmaliges Anklicken von "PRINTER 
PROTOKOLL" wieder abschalten. 

Wenn Sie doch nicht suchen wollen, brechen Sie mit [Undo] ab. 



16 


"LIST TOKEN" [F2]-[Shiftl[F3] 

Sucht nach BASIC Schliisselwortern (Tokens). Wie bei "LIST" konnen Sie 
auch hier das gewiinschte Token in einer Dialogbox eingeben. Ahnlich wie 
bei "FIND TOKEN" sind hier auch "P", "FN" bzw. fur Prozeduren, 
Funktionen und Labels erlaubt. 

"REPLACE" [F3], nochmal [F3] 

Sucht einen bestimmten Text und ersetzt ihn durch einen anderen Text. In 
der Dialogbox geben Sie sowohl den Such- als auch den Ersatztext ein. 
Aufierdem konnen Sie durch Anklicken der Knopfe "Query" bzw. "All" den 
Ersetzmodus festlegen. Ein Druck auf [Return] oder den "OK"-Knopf 
beginnt die Ersetzung; mit [Undo] brechen Sie die Funktion wie gewohnlich 
ab. 

Je nach eingestelltem Modus wird nun folgendermafien vorgegangen: 
Query: Bei jedem Vorkommen des Suchtextes wird gefragt, ob dieser Text 
ersetzt werden soli oder nicht, oder ob die Funktion abgebrochen 
werden soli. 

All: Es wird einfach im gesamten Text der Suchtext durch den Ersatztext 
ersetzt. 


"RENAME TOKEN" 

Benennt Tokens, also Variablen, Prozedur- und Funktionsnamen und 
Labels um. Natiirlich lassen sich mit dieser Funktion auch Befehlstokens 
umwandeln, also z.B. PRINT in INPUT. 

Primar ist diese Funktion aber zum Umbenennen von Variablen gedacht. 
Auch Prozeduren und Funktionen lassen sich auf diese Weise umbenennen. 
Es erscheint eine Dialogbox, in der Sie sowohl den alten als auch den neuen 
Namen des umzubenennenden Tokens angeben. Geben Sie Prozedur- oder 
Funktionsnamen mit den jeweiligen Prafixen P oder FN an. Bei "NEW 
NAME" diirfen Sie keine Pra- oder Postfixe mehr verwenden! 


Das BLOCK-Menii: 

Sie konnen sich im Editor Blocke definieren und mit diesen arbeiten, z.B. 
den Block loschen, kopieren, abspeichern etc. Das geschieht mit den 
Blockkommandos, die Sie im BLOCK-Menii finden. 
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"INSERT" [F7]-[F9] 

Diese Funktion kopiert den Block an die aktuelle Cursorzeile. Dabei wird 
der Text, der schon an dieser Stelle steht, nicht iiberschrieben, sondern der 
Block wird eingefiigt. 

Der urspriingliche Block bleibt unverandert. 

"MOVE" [Control]-[V] 

Der aktuelle Block wird an die aktuelle Cursorposition gebracht. An der 
alten Position wird er dabei geloscht. 

"KILL" [Control]-[E] 

Loscht den aktuellen Block ohne Riickfrage. Bitte beachten Sie: Es ist nicht 
moglich, einen geloschten Block wieder zuriickzuholen. 


BLOCK START' [Control]-[B] 

Markiert die derzeitige Cursorzeile als Anfang eines Blocks. 

"BLOCK END" [Control]-[K] 

Markiert die derzeitige Cursorzeile als Ende eines Blocks. 

Einfacher ist es, Blocke mit der Maus markieren: Am einen Ende des 
Blockes Maustaste driicken, am anderen wieder loslassen.Nachdem Sie 
den Block definiert haben, erscheint dieser invers. 

Es ist nicht moglich, einen Block zu definieren, der mitten in einer Zeile 
anfangt und irgendwo inmitten einer anderen Zeile aufhdrt. 

"HIDE" [Control]-[H] 

Die Markierung des aktuellen Blocks wird geloscht. 


"LOAD BLOCK" [F7]-[Shift]-[F8] und "SAVE BLOCK " [F7]-[F8] 

Tauchen der Vollstandigkeit halber sowohl im Menu als auch hier im 
Handbuch nochmals auf. Das andere mal siehe unter "File"- Menu. 

"PRINT BLOCK" [Shift]-[Control]-[P] 

Der aktuelle Block wird auf den Drucker ausgegeben. Vorher haben Sie 
noch die Gelegenheit, die Zeilenbreite einzustellen, die Ihrem Drucker 
entspricht. Voreingestellt ist 80 Zeichen. Wenn Sie Ihren Drucker nicht auf 
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eine engere Schrift eingestellt haben, konnen Sie hier einfach [Return] 
driicken. (siehe auch "PRINT" im "FILE"-Menii) 


Das MODE-Menu: 

"SWITCH SCREEN" [Shift]-[F2] 

Springt zwischen den beiden mit "SPLIT SCREEN" (s.u.) eingestellten 
Bildschirmen hin und her. 

'SPLIT SCREEN" [Shift]-[F1] 

Spaltet den Bildschirm waagrecht in zwei unabhangige Teile auf. 

Diese beiden Bildschirme sind vollig unabhangig voneinander. Wenn Sie 
also in dem einen Bildschirm den Anfang Ihres Programms darstellen, 
konnen Sie in dem anderen Bildschirm das Ende (oder eine andere Stelle) 
Ihres Programms ansehen. Allerdings beziehen sich beide Bildschirme auf 
nur ein Programm, d.h. der Editor kann trotz dieser Aufspaltung nach wie 
vor nur ein Programm bearbeiten. 

Manchmal ist es nicht sinnvoll, dafi die beiden Bildschirmteile gleich grofi 
sind. Deshalb konnen Sie die Grofie der Teilbereiche einfach andern indem 
Sie mit der Maus den Trennstrich anklicken und bei gedriickter Maustaste 
in eine andere Position ziehen. 

"CHANGE SIZE/FONT" [Shift]- [F3] 

Schaltet auf einen anderen Zeichensatz um. 

Im Editor des OMIKRON.BASIC konnen Sie statt der normalen Aufteilung in 
25 Zeilen zu je 80 Spalten auch noch andere Bildschirmauflosungen wahlen. 
Je nach Bildschirmauflosung und geladenen GDOS-Zeichensatzen konnen 
Sie hier verschiedene Schriftgrofien einstellen. Nur proportionale Zeichen- 
satze werden nicht verwendet. 

Uber diesen Meniipunkt lassen sich lediglich die Zeichensatze umschalten. 
Um auf einen anderen Bildschirmtreiber umzuschalten (also VDI-Ausgabe 
oder OMIKRON.Ausgabe zu verwenden) benutzen Sie bitte den Meniipunkt 
"PREFERENCES" im "MODE'-Menii. (Fur eine nahere Beschreibung s. dort.) 
Wenn Sie diesen Meniipunkt anwahlen werden alle vorhandenen 
Zeichensatze (auch geladene GDOS-Fonts, falls GDOS vorhanden ist) 
eingestellt. 
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HINWEIS: GDOS-Fonts werden nur bei aktiviertem VDI-Treiber 

dargestellt; aufierdem muft GDOS geladen sein! 

"PREFERENCES" [Control]- [L] 

Legt verschieden Grundeinstellungen des Editors fest. In diesem 
Meniipunkt sind einige Meniipunkte aus dem MODE-Menii des 
OMIKRON.BASIC vor Version 3.5 zusammengefafit. 


Wenn Sie diesen Meniipunkt aufrufen, erscheint eine Dialogbox, in der Sie 
die folgenden Einstellungen tatigen konnen: 

Screen Output: Hier bestimmen Sie den Bildschirmtreiber. DIRECT bezieht 
sich dabei auf den OMIKRON.Treiber, VDI auf den VDI-Treiber. Sie 
sehen hier auch, welcher Treiber gerade aktiv ist. 

Normalerweise werden Sie den auf Geschwindigkeit hochoptimierten 
OMIKRON.Treiber (einzustellen liber DIRECT) verwenden. Dieser arbeitet 
auf Grund seiner hohen Ausgabegeschwindigkeit nur in den Standardauf- 
losungen von ST bzw. TT. Wenn Sie eine Grafikkarte von einem Fremdan- 
bieter verwenden oder auf eine andere Weise die Bildschirmauflosung 
Ihres Rechners verandert haben, verweigert der OMIKRON. -Treiber seinen 
Dienst. Zu diesem Zweck wurde der VDI- Treiber eingebaut (zu aktivieren 
iiber VDI). Dieser Treiber funktioniert auf alien Grafikkarten und in alien 
Auflosungen. (sofern die entsprechende Grafikkarte sich an die ATARI- 
Richtlinien halt; sollte auch der VDI-Treiber bei Ihnen nicht funktionieren, 
wenden Sie sich bitte NICHT an uns, sondern an den Hersteller Ihrer 
Grafikkarte; der Fehler liegt eindeutig dort!) Leider ist die Ausgabe- 
geschwindigkeit des VDI-Treibers nicht allzu hoch. Dies liegt daran, dafl 
der Treiber fur alle moglichen Falle konzipiert wurde und daher nur die 
(langsamen) Standardroutinen des ST/TT fur Bildschirmausgaben 
verwendet. 

Edit Mode: Stellt den Insert- bzw. Overwrite-Modus ein. Auch hier konnen 
Sie ablesen, welcher Modus gerade aktiv ist. 

Linenumbers: Schaltet die Zeilennummern ein (ON) oder aus (OFF). Wenn 
die Zeilennummern eingeschaltet sind, miissen Sie vor jeder Zeile eine 
Zeilennummer schreiben, wenn Sie nicht die Fehlermeldung "Bad 
Linenumber" erhalten wollen. Zusatzlich konnen Sie hier den aktuellen 
Modus nachsehen. Wenn Sie die Zeilennummern abschalten (Klick auf 
OFF) gelten folgende Regeln: 

- Bei der Eingabe einer Zeile ist keine Zeilennummer mehr notig. 

- SAVE und BLOCK SAVE speichern ohne Zeilennummern ab. 
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- LOAD und LOAD BLOCK laden auch Programme ohne 
Zeilennummern ein. 

- Bei [FI] (GO) und [F2] [F3] (LIST) werden die Zeilen wie in 
Einerschritten durchnumeriert betrachtet. 

- Beim Verlassen des Editors werden die Zeilennummern in 
Einerschritten durchnumeriert. 

- Errorlines: Schaltet die Anzeige von fehlerhaften Zeilen ein (SHOW) 
bzw. aus (HIDE). Fehlerzeilen blinken bei OMIKRON.BASIC. Wenn 
Sie dies als storend empfinden, so konnen Sie dieses Blinken iiber 
diesen Dialog abstellen, indem Sie auf HIDE klicken; wieder 
einschalten konnen Sie das Blinken durch einen Klick auf SHOW. 

Automatic Backup: Werrn diese Funktion aktiv (YES) ist, wird bei jedem 
Speichern eines BASIC-Programms eine Sicherheitskopie der alten 
Version mit der Endung .BAK angelegt. 

Compiler: Hier konnen Sie den kompletten Pfad und Dateinamen des 
BASIC-Compilers eintragen. Wenn Sie Ihren Compiler also z.B. auf 
Laufwerk E: im Ordner COMPILER unter dem Namen OM_COMP.PRG 
liegen haben, miissen Sie hier eintragen: 
E:\COMPILER\OM_COMP.PRG 

Durch einen Klick auf den OK-Knopf (oder [Return]) iibernehmen Sie die 
Anderungen, iiber CANCEL (oder [Undo]) brechen Sie den Dialog ab, ohne 
die Anderungen zu iibernehmen. Zusatzprogramme wie “CUTLIB", die 
ebenfalls direkt vom Interpreter aus gestartet werden, sollten auch auf 
diesem Pfad zu finden sein. 


"SAVE SETTINGS" 

Speichert verschiedene Einstellungen ab. 

Natiirlich ist es nicht besonders sinnvoll, sich Editor-Funktionstasten 
jedesmal auf s neue zu definieren, wenn man das OMIKRON.BASIC startet. 
Die SAVE SETTINGS-Funktion im Menu MODE speichert die 
Funktionstasten, das generelle Aussehen des Bildschirms, ob Sie im Insert- 
oder Overwrite-Modus sind, ob Sie die Zeilennummern an haben oder 
nicht, ob Fehlerzeilen blinken oder nicht und die Variableneinstellungen 
(siehe DEFDBL, DEFSNG etc.). Auch der Pfad und die Extension fur "Block 
laden/sichern" wird vermerkt. Diese Einstellungen werden jedesmal 
zusammen mit OMIKRON.BASIC geladen. Sie sind in einer Datei OM- 
BASIC.INF enthalten, die normalerweise auf Laufwerk C: im 

Hauptverzeichnis angelegt wird. Gibt es kein Laufwerk C:, dann wird diese 
Datei auf dem aktuellen Laufwerk im Hauptverzeichnis angelegt. 



21 


Das GO-Menii: 

"TO LAST MARK" [Control]-[Z] 

Springt zu der Stelle, an der Sie einen Doppelklick gemacht haben, um die 
LIST-Funktion aufzurufen. Hiermit kommen Sie also immer wieder an Ihre 
Ausgangsposition zuruck, wenn Sie mittels Doppelklick ein Token 
"verfolgen". (Diese Funktion "merkt" sich bis zu acht Positionen, d.h. Sie 
konnen achtmal per Doppelklick suchen und kommen wieder an die 
Ausgangsposition zuruck.) 


"GO TO" [FI] 

Springt an eine bestimmte Stelle in Ihrem Programm. 

Es erscheint eine Dialogbox, in der Sie eine Eingabezeile und sechs Knopfe 

finden. 

In der Eingabezeile konnen Sie folgendes eingeben: 

Eine Zeilennummer: Der Editor springt in die Zeile, in der die BASIC-Zeile 
mit dieser Zeilennummer steht. 

Einen Offset, (z.B. +5, -8 usw.): Springt um die angegebene Anzahl 
Programmzeilenvor- bzw. zuruck. 

Ein Label, (z.B. -TEST): Springt an die Stelle, an der dieses Label steht. 

Eine Prozedur, (z.B. P TEST): Springt an die Stelle, an der diese Prozedur 
definiert ist. 

Eine Funktion, (z.B. FN TEST): Springt an die Stelle, an der diese Funktion 
definiert ist. 

Die Knopfe haben folgende Bedeutung: 

Block Start: Springt zum Anfang des Blocks. 

Block End: Springt zum Ende des Blocks. 

Page Top: Verschiebt das Programm so, dafi die aktuelle Zeile (in der der 
Cursor steht) am oberen Bildschirmrand steht. 

Page Bottom: Verschiebt das Programm so, dafl die aktuelle Zeile am 
unteren Bildschirmrand steht. 

OK Oder [Return]: Fiihrt den Sprungbefehl in der Eingabezeile aus. 

CANCEL Oder [Undo]: Bricht die Funktion ab. 
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"LINE TO TOP" 

Verschiebt das Programm so, dafi die aktuelle Zeile am oberen 
Bildschirmrand steht. (Vgl. "GO TO") 

"LINE TO BOTTOM" 

Verschiebt das Programm so, dafl die aktuelle Zeile am unteren 
Bildschirmrand steht. (Vgl. "GO TO") 

"TO MARK x" bzw. "SET MARK x" 

Eine Marke ist eine bestimmte Position in Ihrem Programmtext, die sich der 
Editor gemerkt hat. Sie konnen im Fullscreen-Editor 4 verschiedene 
Marken setzen und wieder anspringen. Diese Funktion ist sehr niitzlich, 
wenn Sie eine Stelle in einem Programm immer wieder anschauen oder 
editieren miissen. Gemeint sind hier nur die Zifferntasten auf der Haupt- 
tastatur. 

Mit SET MARK X im GO-Menu setzen Sie die Marke X, mit TO MARK X 
bewegen Sie den Cursor an die gemerkte Stelle X. Die gleichen Funktionen 
konnen Sie auch mit [Control]-[<Ziffer>] und [Alternate]-[<Ziffer>] 
erreichen. 

[ControlJ-[<Ziffer>J setzt eine Marke, 

[Alternate]-[<Ziffer>] springt diese Marke wieder an. 


"FIND ERROR" 

Bringt den Cursor auf den nachsten SYNTAX ERROR oder TYPE 
MISMATCH ERROR. Logische Fehler konnen vom Interpreter nicht 
automatisch erkannt werden. 


Das Run-Menu: 

"RUN" [Control]-[R] 

Verlafit den Editor und startet das im Editor befindliche Programm. 


"SAVE & RUN" [Control]-[W] 

Speichert das aktuelle Programm unter dem aktuellen Namen (vgl. "SAVE") 
und startet es anschliefiend. (Vgl. "RUN") Lautet dieser Name 
"NONAME. BAS" erscheint beim Speichern eine Dateiauswahlbox. 
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"TRON & RUN" 

Startet das aktuelle Programm und aktiviert zuvor die TRACE -Funktion. 
(Vgl. auch Befehl TRON und TROFF und Menupunkt "RUN") 

"COMPILE" [Alternate]-[C] 

Startet den OMIKRON.BASIC-Compiler unter dem angegebenen Namen 
und Pfad (vgl. “PREFERENCES") und iibersetzt das aktuelle Programm. Das 
Programm wird dann unter dem aktuellen Namen vom Compiler mit der 
Endung ".PRG" abgespeichert, sofern es keinen Ubersetzer-Fehler gab. 


"SAVE & COMPILE' [Alter nate]-[Y] 

Speichert das aktuelle Programm unter dem aktuellen Namen ab und startet 
anschlieflend den Compiler. (Vgl. "SAVE & RUN", "SAVE", "COMPILE") 

War der aktuelle Name des Programms "NONAME.BAS", so wird vor dem 
abspeichern iiber eine Dateiauswahlbox nach einem neuen Namen gefragt. 

"RUN *.BAS" 

Startet ein beliebiges BASIC-Programm von Diskette/Festplatte. Zuvor 
erscheint eine Dateiauswahlbox, in der Sie den Namen des BASIC - 
Programms auswahlen konnen. 

ACHTUNG: 

Ihr aktuelles BASIC-Programm 
wird bei dieaer Funktion 
geloscht. 

"EXEC *.PRG" [Control]-[X] 

Startet ein beliebiges anderes Programm (z.B. ein Compilat oder ein 
Textverarbeitungsprogramm...) und kehrt nach Beendigung des anderen 
Programms in den Editor zuriick. Sie sollten aus Sicherheitsgriinden vor 
dem Aktivieren dieser Funktion Ihr momentanes Programm trotzdem 
abspeichern - fiir den Fall, dafl das aufgerufene Programm abstiirzt. 

"OS-SHELL"JVur fiir Prof is! 

Gestattet die Kommunikation mit einer geladenen Shell. 

Wenn Sie vor dem Start von OMIKRON.BASIC eine Kommando- Shell (z.B. 
die Mupfel von Gemini o.a.) installiert hatten, die Ihren Kommando- 
prozessor in der Systemvariablen _shell_p ($4F6) eingetragen hat, erscheint 
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eine Dialogbox in der Sie ein Kommando fiir diese Shell eingeben konnen. 
(z.B. Is, mv, cp, help o.a.). Haben Sie keine Shell installiert oder unterstiitzt 
Ihre Shell die Kommandoiibergabe iiber shell p nicht, erscheint eine 
Dialogbox mit dem Hinweis “No Shell available" (also "Keine 
Kommandoshell gefunden") und die Funktion wild abgebrochen. Bitte 
beachten Sie: Wenn Sie diese Funktion verwenden wollen, miissen Sie 
OMIKRON.BASIC von Ihrer Shell aus starten und nicht iiber den ATARI - 
Desktop. 


"ACCESSORY' 

Wenn Sie auf ACCESSORY klicken, bekommen Sie eine normale GEM~ 
Meniileiste anstatt der vom Editor. Hier konnen Sie Ihre Accessories 
verwenden. Mit dem Eintrag "Quit Accessory" konnen Sie wieder in den 
Editor zuriickkehren. 


"HELP' 

Ruft das integrierte Hilfesystem auf. Wurde bereits beschrieben. 


Weitere Tastaturfunktionen: 

Bildschirmvergleich 

[Alternate] -[A] zeigt kurzzeitig da3 letzte Schirmbild des Direktmodus 
oder des gerade unterbrochenen Programms. Diese Funktion kann nur 
aufgerufen werden, wenn mit "SCREEN 0" ein graphischer Bildspeicher 
angefordert wurde (siehe SCREEN). 


Einklappen 

[Control] -[D] klappt Prozeduren, Funktionen oder einfach nur einen Teil 
Ihres Programms ein. 

Eingeklappt wird bis zmn Ende der Proaedur oder Funktion oder der 
eingeklammerte Bereich. Wenn man in einer Zeile die mit "DEF PROC" oder 
"DEF FN beginnt [Control]-[D] driickt, wird alles was zwischen dieser und 
der nachsten Zeile, die mit "END_PROC l< oder U END_FN“ beginnt, 
eingeklappt. Anschliefiend wird nur noch die Kopfzeile der betreffenden 
Prozedur oder Funktion angezeigt. Zum Ausklappen geniigt ein erneutes 
Driicken von [Control]-[D] in der eingeklappten Kopfzeile. 

Urn andere Teile Ihres Programms einzuklappeh, miissen Sie den Bereich 
durch Setzen zweier geschweiften Klammem ("{" und "}") markieren. Die 
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Klammer erreichen Sie durch drticken von [Alternate]-[Shift]-[Oj/[A] 
Wenn Sie jetzt den Cursor auf die sich tiffnende Klammer positionieren und 
[Control]-[D] driicken, wird alles, was zwischen den Klammer steht, 
eingeklappt. 

Einklappungen mit Klammern sind schachtelbar: Sie konnen also erst alle 
Prozeduren einklappen und dann alle eingeklappten Prozeduren nochmals 
einklappen. Ihr Programm reduziert sich damit auf eine (!) Programmzeile! 
Schliefilich konnen Sie eingeklappte Programmteile auch noch gegen das 
Auflisten (und wieder ausklappen!) schiitzen. (Vgl. Befehl LOCK). 
VORSICHT: 

Wenn Sie Ihr Programm im ASCII-Format sichern ("SAVE BLOCK") mufi 
alles ausgeklappt sein, da sonst nur die Titelzeilen, nicht aber der Inhalt des 
eingeklappten Programmteils gesichert werden. 

[Control]-[Shift]-[D] klappt alle eingeklappten Programmteile auf einmal 
aus. 

VORSICHT: 

Dieser Befehl lafit sich nicht riickgangig machen - aufier durch erneutes 
manuelles Einklappen. Dies kann bei umfangreich verschachtelt 
eingeklappten Programmen sehr miihsam sein. 


Wiederholungsfunktion 

[F6] - Repeat 

"Repeat" wiederholt die letzte Taste einstellbar oft. Um zum Beispiel die 
Taste [*] 70mal zu wiederholen (also 70 Sternchen zu erzeugen, z.B. fur Uber- 
schriftsumrahmungen) tippen Sie: 

[*] [F6] [7] [0] [Return] 

Sie konnen auch eine Funktionstaste beliebig oft wiederholen. Das ist 
besonders bei selbstdefinierten Funktionstasten oft sehr sinnvoll. Um zum 
Beispiel lOmal die Taste F4 zu driicken, konnen Sie statt [F4] [F4] [F4] [F4] 
[F4] [F4] [F4] [F4] [F4] [F4] auch tippen: [F4] [F6] [ 1] [0] [Return] 

Funktionstasten definieren 

[Shift]-[F7] - Funktionstaste definieren 

Sie konnen bis zu 64 Zeichen auf eine Funktionstaste legen. Zum Definieren 
stehen Ihnen die beiden Funktionstasten F4 und F5 zu Verfiigung (auch mit 
Shift - somit haben Sie 4 frei definierbare Funktionstasten). Aufierdem 
konnen Sie die rechte Maustaste umdefinieren. Sie ist voreingestellt auf 
BLOCK INSERT. 
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Beispiel: Sie definieren sich die Funktionstaste F4 mit PRINT Das 
geschieht mit: 

[Shift] -[F7] [Shift] - [F 4 ] [P] [R] [I] [N] [T] [ ] ["] [Shift]-[F7] 

Ab dann fiihrt jedes Betatigen von [Shift]-[F4] zur Ausgabe von 
PRINT " 

Weitere Editierhilfen 

[F9] - Insert Line 

Diese Funktion fiigt eine Leerzeile ein. 


[Shift] — [F9] - Delete Line 

Mit "Delete Line" konnen Sie eine Zeile ganz loschen. Der Rest des 
Programm- textes riickt von unten her nach. Besteht eine Programmzeile 
aus mehereren Bildschirmzeilen, so wird die gesamte Programmzeile 
geloscht. 


[F10] oder [Control]-^] : Seite vor 

Blattert eine Bildschirmseite im Programmtext weiter 

[Shift]— [F10] Oder [Control]-^] : Seite zuriick 

Blattert eine Bildschirmseite im Programmtext zuriick 


Neben dem Full-Screen-Editor gibt es auch noch einen Bildschirmeditor. 
Dieser wird auch des ofteren mit "Direktmodus" bezeichnet. Grundsatzlich 
ist es empfehlenswert, Ihre Programme nur im Full-Screen-Editor 
einzugeben; zum Testen von Programmen erweist sich allerdings auch der 
Bildschirmeditor als ein sehr niitzliches Werkzeug. Er wird gleich nach den 
folgenden Tabellen beschrieben. 
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Abkiirzungen fur BASIC-Befehle 

Einige BASIC-Befehle lassen sich durch Tastenkombinationen mit der 
[ Alter nate ] - Taste abkiirzen. Hier eine Liste dieser Abkiirzungen: 


[Alternate] -[B] 

BLOAD 

[Alternate] -[D] 

DATA 

[Alternate] -[E] 

ELSE 

[Alternate] -[F] 

FOR 

[Alternate] -[G] 

GOTO 

[Alternate] -[H] 

HCOPY 

[Alternate] -[I] 

INPUT 

[Alternate] [K] 

KEY 

[Alternate] -[L] 

LPRINT 

[Alternate] -[M] 

MID$( 

[Alternate] -[N] 

NEXT 

[Alternate] -[O] 

OPEN 

[Alternate] -[P] 

PRINT 

? (ohne [Alternate]) 

PRINT 

[Alternate] -[R] 

RETURN 

[Alternate]-[S] 

SYSTEM 

[Alternate] -[T] 

THEN 

[Alternate] -[U] 

USING 

[Alternate] -[V] 

VARPTR 

[Alternate] -[W] 

WHILE 

[Alternate] -[X] 

MOUSEX 
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TabeUen der Tastaturfunktionen 

Tasten im Menu: Weitere Tastaturfunktionen 


[Control] [B] 

Blockstart 

[Control]- [A] 

ASCII eingeben 

[Control] [C] 

Direkt-Mode (Bild 

[Alternate] -[A] 

Letztes Schirmbild zeigen 


schirm-Editor) 

[Control] -[D] 

Einklappen 

[Control] -[E] 

Block loschen 

[Control]-[Y] 

Zeile loschen 

[Control]-[F] 

Suchen 

[Ctrl] [Shift] [Del] Zeile loschen 

[Control]-[G] 

Weiter suchen 

[Shift]-[F9] 

Zeile loschen 

[Control] -[H] 

Block verstecken 

[Ctrl]-[Del] 

Rest der Zeile loschen 

[Control]-[K] 

Blockende 

[F9] 

Zeile einfiigen 

[Control]-[L] 

Voreinstellungen 

[Ctrl] -[Return] 

Zeile auftrennen 

[Control]-[M] 

Speichern unter 

[Delete] 

Zeichen loschen 


neuem Naraen 

[Backspace] 

Zeichen links loschen 

[Control]-[N] 

Neues Programm 



[Control] [O] 

Laden ... 

[Ctrl]-[Insert] 

Insert/Overwrite 

[Control]-[P] 

Drucken 



[Control] - [Shift]- [P] 

Block drucken 

[F6] 

Taste wiederholen 

[Control] -[R] 

Programm starten 

[Shift]-[F7] 

Tastendefinition 

[ControlHQ] 

Beenden 


beginnen/beenden 

[Control]-[S] 

Speichern 

[Tab] 

Auf 8er Spalte 

[Control]-[T] 

Token suchen 



[Control] [V] 

Block verschieben 

[Clr Home] 

zum Anfang/Ende 

[Control]-[W] 

Speichern und starten 

[Control]-[t] 

Seite hoch 

[Control]-[X] 

externes Programm 

[Control]-[4-] 

Seite runter 


starten 

[Control] -[a] 

Wort rechts 

[Control]-[Z] 

letzte Position 

[Control]-[<-] 

Wort links 

[Help] 

Hilfemenii aufrufen 



[Control] -[1-4] 

Marke setzen 



[Alternate]-[l-4] 

Marke anspringen 



[Alternate]-[C] 

Compilieren 



[Alternate] -[Y] 

Speichern und 




Compilieren 



[FI] 

Gehe zu ... 



[Shift]-[F1] 

Bildschirm teilen 



[Shift]-[F2] 

Bildschirm wechseln 



[Shift ]-[F3] 

Zeichensatz wechseln 
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Der Bildschirm-Editor 


Nachdem Sie OMIKRON.BASIC gestartet haben, haben Sie automatisch den 
Full-Screen-Editor vor sich. Um nun in den Bildschirmeditor zu schalten, 
driicken Sie bitte [Control]-[C] oder klicken den Meniipunkt "DIRECT 
MODE" im File-Menu an. 

Nun haben Sie den Bildschirmeditor vor sich und sehen die Startmeldung 
mit Versionsnummer ganz oben auf dem Bildschirm, etwas darunter ein OK 
und nochmal darunter einen blinkenden Cursor. Ansonsten ist der 
Bildschirm weifi, ladt zum Draufschreiben ein. 

Der ’Direktmodus’ von OMIKRON.BASIC ist ein vollstandiger Bildschirm- 
editor: Sie konnen nut dem Cursor beliebig iiber den Bildschirm fahren und 
ugendwo etwas eintippen, sind also nicht - wie haufig bei einfachen 
Editoren - zeilengebunden. 


Besonderheiten sind: 

[Insert] fiigt an der aktuellen Cursorposition ein Leerzeichen ein, wobei der 
Cursor seine Position nicht andert. 

[CTRL]-M Zeile einfiigen 

[CTRL]-[t] - Zeile loschen 

[CTRL]-[DeIete]- Rest der Zeile ab Cursorposition loschen 
[CTRL]-[Insert] - Overwrite-Modus einschalten/ausschalten. 


Im Bildschirmeditor ist auflerdem der voile VT52-Standard integriert. Sie 
konnen mit [ESC]-Sequenzen die verschiedensten Funktionen bewirken, 
z.B. Bildschirm loschen, Rest der Zeile loschen, Cursor nach links oben etc. 

die vollstandige Tabelle der [ESC]-Sequenzen finden Sie im Anhang. 
Wenn Sie z.B. (schlagen Sie im Anhang nach) den Rest des Bildschirms 
loschen wollen, so miissen Sie [ESC] [J] eintippen. 

Achten Sie darauf, dab das J ein grofies ] sein mufi, ESC j (mit einem 
kleinen j) speichert die momentane Cursorposition. An diese gespeicherte 
Position kommen Sie mit ESC k (kleines k). 
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Hiernoch ein paar weitere Tastenkombinationen im Bildschirm-Editor: 

[Alternate] -[CTRL] Tastatur buffer loschen. Im Tastaturbuffer merkt sich 
OMIKRON .BASIC Tastendriicke, die es nicht sofort 
ausfiihren karrn (z.B. wenn Sie Tasten drucken, 
wahrend ein Programm lauft) 


[CTRL]-[Clr] 

[Return] 


[Control]-[Help] 
[Shift]— [Shift] 


Loscht den Bildschirm 

Merkt die eingegebene Zeile im Programmspeicher 
(wenn eine Zeilennummer davorsteht) oder fiihrt den 
eingegebenen Befehl sofort aus (Direktmodus; hier 
darf keine Zeilennummer am Anfang der Zeile 
stehen.) 

Der Textbildschirm wird neu aufgebaut, so wie 
OMIKRON. BASIC ihn sich gemerkt hat. 

Wenn Sie beide Shift-Tasten gleichzeitig gedriickt 
halten, wird voriibergehend das letzte Schirmbild des 
Programmes eingeblendet. Damit dies funktioniert 
mufl im Programm ein Graphikbildspeicher mit 
"SCREEN 1" reserviert worden sein (siehe auch 
SCREEN). 


Neben diesem Bildschirm-Editor gibt es auch noch den bereits beschrie- 
benen Full-Screen-Editor. Wenn Sie im Direktmodus - also dem 
Bildschirmeditor - arbeiten, erreichen Sie den Full-Screen-Editor einfach 
mit der [Help]-Taste oder mit dem Kommando [E][D][I][T] [<Zeile>] 

Wenn Sie vom Full-Screen-Editor wieder in den Bildschirmeditor oder 
Direktmodus wechseln wollen, drucken Sie [CTRL]-[C] oder klicken den 
Meniipunkt "DIRECT MODE" im FILE- Menu an. 
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Arithmetik 

In der Anfangszeit der Computer wurden diese nur fiir Berechnungen 
eingesetzt. Computer heifit ja auf Deutsch nichts anderes als "Berechner". 
OMIKRON.BASIC bietet im arithmetischen Bereich besonders viele und 
auch schnelle Befehle und Funktionen. 

Im Computer werden Zahlen in mehreren verschiedenen Zahlformaten 
dargestellt. Zahlen dieser fiinf verschiedenen Formate konnen in den fiinf 
entsprechenden Variablentypen gespeichert werden: 


INTEGER 

Integerzahlen sind game Zahlen, also Zahlen ohne Nachkonmmastellen. Ihr 
Zahlenbereich ist eingeschrankt auf die unten angegebenen Werte. Vorteile 
dieser Zahlart sind: 

- Sehr schnelle Abarbeitung 

- Es gibt keine Rundungsfehler 


Long-Integer: 


Integer word: 


Integer byte: 


Flag/Boolean: 


Rechenbereich: -2147483658 bis +2147483657 
Speicherplatzbedarf: 4 Byte (=4 Zeichen) 
Variablennamen: A%L, A%L(1) (Postfix: %L) 
Rechenbereich: -32768 bis +32767 
Speicherplatzbedarf: 2 Byte (=2 Zeichen) 
Variablennamen: A%, A%(1) (Postfix: %) 
Rechenbereich: 0 bis 255 
Speicherplatzbedarf: 1 Byte (=1 Zeichen) 
Variablennamen: A%B(1) (Postfix: %B) 

Rechenbereich: "falsch' 1 (0) und "wahr" (- 1) 
Speicherplatzbedarf: 1 Bit (= ein achtel Zeichen) 
Variablennamen: A%F(1) (Postfix: %F) 


FLOAT (Fliefikomma) 

Fliefikommazahlen sind Zahlen mit Nachkommastellen. Ihr Zahlenbereich 
ist (fast) gar nicht begrenzt, da sie einen Zehnerexponenten besitzen: Reicht 
der Zahlenbereich der Mantisse (s.u.) nicht aus, so wird der Exponent 
jeweils um eins erhoht, und die Mantisse wird um eine Stelle nach rechts 
geschoben. 
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Dadurch gehen jedoch immer mehr Nachkommastellen verloren, je grofier 
die Zahl ist. Die gesamte Stellenzahl bleibt dagegen erhalten: 


123.45678 mal 10 hoch 2 
Mantisse Exponent 
Vorteile dieser Zahlart sind: 

- Nachkommastellen 

- Die Genauigkeit paflt sich der Grofienordnung der Zahl an. 


single-Float: 
(auch: short- 
Float) 

double-Float: 
(auch: long- 
Float) 


Rechenbereich: +/- 5,11 mal 10 hoch 4931 
Genauigkeit: 9,5 Stellen 
Speicherplatzbedarf: 6 Byte (=6 Zeichen) 
Variablennamen: A!, A!(l) (Postfix: !) 

Rechenbereich: +/- 5,11 mal 10 hoch 4931 
Genauigkeit: 19 Stellen 
Speicherplatzbedarf: 10 Byte (=10 Zeichen) 
Variablennamen: A#, A#(l) (Postfix: #) 


STRING (Zeichenkette) 

Ist hier der Vollstandigkeit halber aufgefiihrt (es ist kein Zahl-, dafiir aber 
ein Variablen - Typ): Eine Zeichenkette ist ein Text von bis zu 32766 Zeichen 
Lange. Der Text kann nicht nur druckbare Zeichen enthalten (Buchstaben, 
Ziffern, Sonderzeichen), sondern auch nichtdruckbare und Steuerzeichen. 
(Siehe Anhang: ASCII -Tabelle) 

String:Lange: 0 bis 32766 Zeichen 

Speicherplatzbedarf: 16 Bytes (=16 Zeichen) plus Lange 
Variablennamen: A$, A$(l) (Postfix: $) 

Wichtig: Die Variablentypen Flag und Integer-Byte konnen ausschlieQlich 
in Variablenfeldern verwendet werden. 

Zu den Variablennamen: Die Variable A soli nur ein Beispiel sein. 
Grundsatzlich kann ein Variablen-Name aus bis zu 31 Buchstaben, Ziffem 
und Unter- streichungszeichen (neben rechter [Shift] -Taste) bestehen. Das 
erste Zeichen da von mud allerdings ein Buchstabe sein. 

Oben wurde -zig mal die Variable A als Beispiel fur Variablennamen 
genannt. OMIKRON.BASIC unterscheidet jede einzelne Variable 
voneinander, obwohl sie alle A heifien. Durch die Postfixe fiir die einzelnen 
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Variablentypen unter- scheiden sie sich bereits. Wenn Sie die Variable A%L 
bereits verwendet haben, kbnnen Sie sogar noch ein davon unabhangiges 
Feld A%L(1) und eines A%L(1,2) verwenden. Hier besteht namlich der 
Uhterschied in der Anzahl der Parameter. Es ist jedoch besser, solche 
Namensgleichheiten zu vermeiden, sonst kann ein Programm schnell 
uniibersichtlich werden. 

Sie konnen iibrigens fur jeden Buchstaben des Alphabets einen Standard- 
Variablentyp vergeben. Jede Variable, die mit ebendiesem Buchstaben 
beginnt, hat dann automatisch den Standard-Variablentyp - es sei denn, sie 
geben das Postfix eines anderen Variablentyps an: 


nach DEFINT A Z sind alle Variablen, die Sie ohne Postfix eingeben, 


automatisch vom Typ Integer word. 

nach LEFINTL I sind alle Variablen, die mit I anfangen und die Sie 
ohne Postfix eingeben, automatisch vom Typ long- 
integer. 

nach DEFSNG A-Z sind alle Variablen, die Sie ohne Postfix eingeben, 
automatisch vom Typ single-Float. 

nach DEFDBL A-Z sind alle Variablen, die Sie ohne Postfix eingeben, 
automatisch vom Typ double-Float. 
nach DEFSTR S,U-V sind alle Variablen, die mit S, U oder V beginnen 

und die Sie ohne Postfix eingeben, automatisch vom 

Typ String. 


Beim Ausgeben des Programmes (mit dem Befehl LIST) wird bei Variablen, 
die vom Standard-Variablentyp sind, das jeweilige Postfix weggelassen. 


Die Einstellung direkt nach dem Laden des Interpreters ist: 

DEFINTLA-Z 

Das bedeutet, dafi Sie long-Integer-Variablen eingeben kbnnen, ohne das 
%L jedesmal hintendranzutippen. Wenn bei Beispielen im Handbuch also 
kein Variablentyp angegeben ist, so sind stets Long-Integer-Variablen 
gemeint. 


Falls Sie bereits andere BASIC -Interpreter kennen, werden Sie sich 
sicherlich dariiber wundern, dafi eine normale Variable in OMIKRON. 
BASIC vom Typ long-integer ist und nicht vom Typ single-Float. Der Grund 
mag vielleicht ein Stuck Idealismus sein. Wir haben uns namlich deshalb 
dazu entschlossen, weil: 
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- in den meisten Falle, in denen Variablen verwendet warden, keine 
Fliefikommavariablen notwendig sind, 

- Integer-Berechnungen nun mal wesentlich schneller sind, 

- Integer-Berechnungen von einem Compiler besser iibersetzbar sind (Der 
OMIKRON.Compiler bringt etwa Faktor 2,5, bei Fliefikomma -Grund- 
rechenarten dagegen Faktor 8- 10 bei Integer Anwendungen!), 

- und weil man durch Eingeben von DEFSNG A-Z wieder den von 
anderen Interpretern her bekannten Fliefikomma-Standard hat. 

Ach ja - noch etwas zu DEFSNG und DEFINTL und den anderen: 1st erst 
einmal eine Variable vom Typ long-integer eingegeben worden, so hilft 
kein nachtragliches DEFSNG: Die Variable behalt Ihren Typ bei! (Sie wird 
dann aber von LIST als A%L statt als A aufgefiihrt, wahrend eine zweite 
Variable A! nunmehr als A angezeigt wird.) 

Wenn Sie also Programme, die auf anderen Rechnern entwickelt wurden, 
iibernehmen wollen, so geben Sie ein: 

DEFSNG A-Z 
OK 

LOAD ’’VONMBASI” (der Name Ihres Programmes) 

OK 

1 DEFSNG A-Z (damit die Definition dann auch im Programm steht) 


Konstanten 


Konstanten sind Zahlen, die sich nicht verandern: 


123 

1.3 

1E20 

123! 

123# 

1D20 

1.23456789 


(Integer) 

(Fliefikomma) 

(Fliefikomma) 

(Fliefikomma) 

(Fliefikomma; doppelt genau) 
(Fliefikomma; doppelt genau) 
(Fliefikomma; doppelt genau) 


der Vollstandigkeit halber (es ist keine Zahl- Konstante): 
"hallo" (String) 
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Eine Zahl, die 
Fliefikommazahl: 


eines der folgenden Zeichen enthalt, ist automatisch 


. ! « E D 


Die Postfixe ! und « konnen also auch hinter Zahlen stehen. 

Der Buchstabe E steht fur ''Zehnerexponent", D fur den Zehnerexponent 
einer doppelt genauen Zahl. 

Sowohl der Buchstabe D als auch das # erzwingen eine doppelt genaue 

Zahl. Ebenso ist eme Zahl xnit mehr als acht giiltigen Stellen automatisch 
doppelt genau. 


Probieren Sie doch bitte einmal: 

PRINT CDBL(.I) 


CDBL wandelt die einfach genaue Konstante 0,1 in doppelte Genauigkeit 
Dennoch ist das Ergebnis nur 9 Stellen genau. 

Wir erkennen daraus: Will man ein doppelt genaues Ergebnis haben, 
mussen die Konstanten, die in einer Berechnung verwendet werden auch 
doppelt genau sein. 

Die Berechnung 
A#=1/3:PRINT A# 
ist also ungenau. Richtig ist: 

A#=1#/3#:PRINI a# 

- und das Ergebnis stimmt! 


Wie Sie jetzt wissen, kann man in Integer keine Nachkommastellen 
arstellen, aufierdem ist der Zahlenbereich begrenzt. Fiir viele arithme- 
tischen Funktionen werden aber Nachkommastellen benotigt (z.B.: Sinus), 
so dafi die nun folgenden Abschnitte sich oft auf Fliefikommazahleri 
beziehen. Selbstverstandlich lfiflt sich jede dieser Funktionen auch in 
doppelter Genauigkeit berechnen. 

Fur Profis; "Single precision" Oder "einfache Genauigkeit" bedeutet ein 
Speicher- und Rechenformat von 6 Bytes pro Zahl. Davon sind 33bit 
(32+Vorzeichen) fiir die Mantisse reserviert, 15 bit fiir den Exponenten. 
OMIKRON.BASIC erreicht hier eine Genauigkeit von 2*1E-10, also etwas 
mehr als 9 giiltige Stellen. Davon werden lediglich 8 ausgegeben, der Rest 
wird aber mitgerechnet und mitabgespeichert. 

Wenn diese Genauigkeit nicht ausreicht, mufi man in doppelter Genauigkeit 
rechnen. 
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"Double precision" bedeutet ein Format von 10 Bytes pro Zahl. Der Speicher- 
mehrverbrauch macht sich vor allem bei Arrays und Matrizen mit double- 
Zahlen bemerkbar. Die 10 Byte teilen sich in 65bit Mantisse und 15bit 
Exponent auf. Damit ergibt sich derselbe Rechenbereich wie mit single- 
Zahlen, aber eine Genauigkeit von 5E-20, also iiber 19 giiltige Stellen, von 
denen 17 ausgegeben werden. 

Die erhohte Genauigkeit bei double-Zahlen bezahlt der Anwender mit 
hoherem Speicherplatzbedarf und geringerer Verarbeitungsgeschwindig- 
keit (4- bis 8-fache Rechenzeit). 

Rundungsfehler 

Leider kann man beim Rechnen mit Floatzahlen Rundungsfehler nicht 
vermeiden. Das liegt nicht daran, dafi unser Programmierer sein Metier 
nicht beherrscht, sondern es ist eine prinzipielle Schwache von Zahlen- 
darstellungen mit endlich viel abgespeicherten Stellen. Ein Beispiel aus 
dem taglichen Leben verdeutlicht dies: 

1/3 = 0.33333333 

Um die Zahl "1/3" darzustellen, konnen Sie beliebig viele Dezimalstellen 
angeben. Die angegebene Zahl wird jedoch nie genau ein Drittel sein, weil 
Sie irgendwann abbrechen miissen, und die Zahl ja noch mit unendlich 
vielen Dreiern weitergeht. 

Intern speichert der Computer alle Zahlen im Zweier- bzw. Dualsystem ab. 
Im Zweiersystem kann man aber Zahlen, die in unserem normalen 
Zehnersystem des taglichen Lebens kerne Probleme machen, nicht 
darstellen. Ein Beispiel dafiir stellt die Zahl 0.1 dar. Probieren Sie einmal: 

PRINT 10000-10000.1 

Das Ergebnis diirfte Sie iiberraschen. Aber probieren Sie es ruhig mal auf 
einem anderen Computer (keinem Taschenrechner, denn die rechnen im 
Dezimalsystem) aus! 

Um Rundungsfehler moglichst gering zu halten, sollten Sie Subtraktionen 
von grofien, ahnlichen Zahlen (wie im obigen Beispiel) vermeiden. 
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Ubersicht 

Befehle, Funktionen, Operatoren 


Zur Syntaxerklarung: 

Angaben in spitzen Klammern <..> sind durch entsprechende Ausdrucke zu ersetzen. 

Angaben in eckigen Klammern [...] sind, je nach gewiinschter Anwendung, 
wegzulassende Erganzungen. 

Sind urn einen Ausdruck zwei eckige Klammern [[...]] gesetzt, so kann, je nach 
Anwendung, dieser Ausdruck weggelassen werden, einmal oder mehrmals erscheinen. 

Angabe in geschweiften Klammern {... | ...} stellen eine Auswahl dar, aus der eine der 
durch | getrenntenAlternativenauszuwahlenist. 


Zu den Beispielen: 

Beispielprogramme, die so abgetippt werden konnen, sind mit Zeilennummern 
abgedruckt. 

Bildschirmergebnisse, sofern es sich nicht um Grafiken etc. handelt, sind durch eine 
Leerzeile getrennt aufgefuhrt. 

Steht keine Zeilennummer vor dem Befehl, so fiihrt die Ausfiihrung dieses Befehls in 
dieser Form zu keinem vernunftigen Ergebnis. Das Beispiel dient dann nur zur 
Verdeutlichung der Syntax! 


Weitere Erklarungen: 

<num. Ausdruck^ 

Ein numerischer Ausdruck ist ein beliebiger Term, der ein numerisches Ergebnis liefert. 
Dabei spielt der Typ (ganzzahhg, einfach- oder doppeltgenau) keine Rolle. 

<Stringausdruck> 

Ein Ausdruck vom Typ String. Er kann insbesondere auch die Funktion @(<Zeile>, 
<Spalte>) enthalten. 


<Funktionsnummef> 

Vorzeichenlose ganze Zahl, die eine Funktion aus den Betriebssystem Bibliotheken AES, 
BIOS, GEMDOS, VDI oder XBIOS auswahlt. 
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<GLOBAL-Feld> 

Globales Parameterfeld fur das AES. Hier steht der angegebene Index fiir die Zahl der im 
Feld enthaltenen Werte. 

<INTIN-Feld> 

Globales Parameterfeld fiir das AES und das VDI. Hier steht der angegebene Index fiir 
die Zahl der im Feld enthaltenen Werte. 

<INTOUT-Feld> 

Globales Parameterfeld fUr das AES und das VDI. Hier steht der angegebene Index fiir 

die Zahl der im Feld enthaltenen Werte. 

<ADDRIN Feld> 

Globales Parameterfeld fiir das AES. Hier steht der angegebene Index fiir die Zahl der im 
Feld enthaltenen Werte. 


<ADDROUT-FeId> 

Globales Parameterfeld fiir das AES. Hier steht der angegebene Index fiir die Zahl der im 
Feld enthaltenen Werte. 


<Dateiname> 

Ein Dateiname ist ein String, der folgenden Aufbau hat: 

” [ < Laufwerk > ] [ \ ] [ [ < Ordnername > \ ] ] < Name > ” 


Laufwerk steht fiir eine das Laufwerk kennzeichnenden Buchstaben zwischen "A" und 
"P", gefolgt von einem Doppelpunkt. 

Ein Ordnername besteht aus bis zu acht Zeichen und eventuell einer drei Zeichen langen 
Namenserweiterung, die durch abgetrennt wird. Der Ordnername darf keine 
Jokerzeichen beinhalten. Ein aus einem Oder mehreren Ordnern bestehder Dateiname 
nennt man auch Pfad. Der Pfad heifit vollstandig, wenn angefangen vom Laufwerk bis hin 
zum Namen alle Angaben vorhanden sind. 

Der Name selbst entspricht dem Ordnernamen, nur dafi hier fast immer auch 
Jokerzeichen zugelassen sind. 

Wenn bei der Angabe des Dateinamens die Laufwerksangabe fehlt, so wird vom 
Standardlaufwerk ausgegangen. Fehlt auch der Pfad so wird der Standardpfad 
verwendet. 


<num. Variable> 

Numerische Variable gleich welchen Typs. In Einzelfallen sind mdglicherweise nur 
einfach Variablen zugelassen und keine Felder. 
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<Riickgabe-Variable> 

Liefert den Ergebniswert bzw. die Fehlernummer einer Betriebssystemfunktion zuriick. 
Bei INPUT USING Art der Abbruchbedingung. 

<Parameter> 

Die an eine Funktion Oder Prozedur iibergebenen Werte. Bei Betriebssystemaufrufen des 
BIOS, GEMDOS, XBIOS Oder bei Aufrufen mit CALL kann durch ein vorangestelltes "L " 
eine Ubergabe als LONG-WORD bewirkt werden. 

<Bitnummet> 

Vorzeichenlose Zahl zwischen 0 und 31. Die Wertigkeit des entsprechenden Bits ist 
2 A <Bitnummer>. 

Integer-Variable* 

Ganzzahlige Variable WORD Oder LONG, auch Feldvariablen sind zulassig. 


<Speicheradresse> 

32 Bit breite (1 LONG) Integer-Zahl, die eine bestimmte Speicherzelle benennt. 

<Marke * 

Eine Marke bezeichnet eine bestimmte Stelle eines Programms: 

1. Eine bestimmte Zeile. Wenn mit Zeilennummern gearbeitet wird kann man durch 
Nennung der Nummer eine bestimmte Zeile erreichen. Die Zeilennummer kann 
auch berechenet werden, d.h. als Marke ist auch ein beliebiger numerischer 
Ausdruck zugelassen. Wenn der Ausdruck jedoch aus einer einzigen numerischen 
Variablen besteht, so ist diese in Klammern zu setzen, um nicht mit einem Label 
verwechselt zu werden. 

2. Ein bestimmtes Programm-Label: An jeder Stelle des Programms kann mit 
" <BezeichnerV ein Label vereinbart werden. Der Bezeichner darf nur die iiblichen 
Zeichen enthalten (alle Buchstaben, Ziffern und aber z.B, keine Umlaute). Will 
man sich auf ein solches Label beziehen wird einfach der Bezeichner genannt, das 
vorangestellte Minuszeichen unterbleibt. Man kann stattdessen, das Label auch 
tiber einen Stringausdruck benennen. Er raul) den Bezeichner des Label in 
Grofibuchstaben enthalten und darf fur Compilate nicht langer als acht Zeichen 
sein. 


<Laufwerk> 

Laufwerk steht fur eine das Laufwerk kennzeichnenden Buchstaben zwischen “A" und 
"P“, gefolgt von einem Doppelpunkt. 
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<Winke!> 

Winkelangaben sind stets in 1/ 10 Grad vorzunehmen, d.h. z.B. 900 entspricht 90 Grad. 
<Dateimimmer> 

Eine vorzeichenlose Zahl zwisohen 1 und 16. Die Zahl steht in fester Verbindung mit der 
zugehorigen Datei (Siehe OPEN). AUe Befehle und Funktionen wirken auf die Datei, die 
der Dateinummer durch OPEN zugeordnet wurde. 
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Rechenzeichen 


Zeichen Bedeutung 

* Addition 
Subtraktion 

* Multiplikation 

/ Division 

A Potenzieren 

+ = Addition mit gleichzeitiger Zuweisung des Ergebnisses 
Subtraktion 

*- Multiplikation " 

/= Division " 

\ Integer -Division (mit ganzzahligem Ergebnis ! ! !) 

Vorteil der Integer -Division ist, dafi sie erheblich schneller ablauft als eine 
Division rrut FlieBkomma. Wenn Sie also den Quotienten zweier integer- 
Variablenberechnen wollen (und/oder nur den ganzzahligen Anted des 
Ergebnisses benotigen, sollten Sie \ verwenden. 

MOD Modulo-Operator: Liefert den Rest einer Ganzzahl Division 


Beispiele: 

A+=5 ist gleichbedeutend mit A=A+5 
C-=8 — > C-C-8 
E»=5 — > e=e*5 
G/=10 G=G/10 


Diese vier Operatoren mit gleichzeitiger Zuweisung wurden der Programmiersprache C 
entlehnt. Wer sich also bereits in C auskennt, wird keinerlei Probleme haben, diese 
Operatoren zu verwenden. Der Vorteil dieser Operatoren wird besonders dann deutlich, 
wenn komplizierte Ausdriicke berechnet werden miissen. Besonders im Compilat ergibt 
sich dadurch ein gewaltiger Geschwindigkeitsvorteil. 


PRINT 2'5, 3002X1000, 3002 MOD 1000 
32 3 2 

OK 
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Liste der Operatoren nach Prioritat: 

(, ) (hochste Prioritat) 

NOT 

A (Potenzieren) 

SHL, SHR 

*./ 

\, MOD 

+, - (Vorzeichen) 

<, <-, >, >=, <> 

AND 

OR 

EQV, IMP, NAND, NOR, XOR (niedrigste Prioritat) 


Beispiele: 


PRINT -3'2, (-3)*2, 3*1 SHL 2, (3*1) SHL 2 
~9 9 12 18 

OK 

PRINT -1 > =2 OR 1(2, -1 > = ( (2 OR 1)<2) 

-1 0 

OK 


Vergleichsoperatoren 

OMIKRON.BASIC stellt die folgenden Vergleichsoperatoren zur VerfUgung: 


Zeichen 

Bedeutung 

> 

grofier als 

< 

kleiner als 

- 

gleich 

>- 

grofier Oder gleich 

<= 

kleiner oder gleich 

<> 

ungleich 
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Pointer/Adressoperatoren 


ermittelt die Adresse einer Variablen, Funktion Oder eines Feldes. Zuriickgegeben 
wird die Adresse des Objekts (Variable, Funktion, Feld) im Speicher. Da zumindest 
im Interpreter nur relative Zeiger auf das jeweilige Segment (vgl. 
SEGPTR/VARPTR) zuriickgegeben werden, konnen Sie nicht direkt auf die Objekte 
iiber diesem Wert zugreifen, sondern miissen hierfur den Dereferenz-Operator 
verwenden. Der AdreB- Operator kann insbesondere auch Zeiger auf 
Funktionen ermitteln und somit konnen Funktionen indirekt aufgerufen werden. 


greift auf ein Objekt zu (dereferenziert es). Direkt hinter dem Operator muB die 
Zeigervariable folgen. Welcher Typ gemeint ist, mufl auch hier - wie bei einer 
normalen Variablen - noch mit einem Postfix angegeben werden. Speziell wenn es 
sich urn einen Zeiger auf Funktionen handelt, ruft **" die Funktion auf die die 
Zeigervariable zeigt auf. 


Beispiel: 0 Text8=”Dies ist ein Beispieltext” 

1 Ptr_Iext=&Text8 

2 PRINT *Ptr_Text8 ’Das 8-Zeiclien ist wichtig! 

Dies ist ein Beispieltext 

Beispiel: 0 Summe=0 

1 Ptr_Summe=&Summe 

2 N=10 

5 FOR 1= 1 TO N 

4 *Ptr_Sum=»Ptr_Sum+I*I 

5 NEXT I 

6 PRINT Stunme 

Zeiger auf Funktionen 

Der Adrefl-Operator ermittelt die Adresse eines Objekts (Variable, Feld oder 
Funktion). Der Ausdruck. ”Ptr_Str_Cnip=&FN Cmp ( A 8 , BS ) ” speichert in der Variable 
"Ptr_Str_Cmp“ einen Zeiger auf die Funktion "FN Cmp(,)" (also deren Adresse) ab. Mit 
diesem Zeiger kann die Funktion nun indirekt aufgerufen werden: "PRINT FN 
*Ptr_Str Cmp ( ”A” , "B” ) ” Solche Funktions- Zeiger konnen ebenso wie Zeiger auf ein 
Feld an Prozeduren iibergeben werden. Mit oberem Beispiel ware eine "Sortier- 
Prozedure" denkbar, die zum String-Vergleich lediglich einen Funktionszeiger 
iibergeben bekommt. Abhangig von der Vergleichsfunktion wird nach ganz 
unterschiedlichen Kriterien sortiert (z.B. aufsteigend, absteigend oder grofi=klein ...) 
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Beispiel: (auch im DEMOOrdner) 

Ptr=&FN Sin2#(X# ) 

PRINT ’’Wertetabelle von Sinusquadrat:” 

Werte_Tab Ptr,0#,1#, .1» 

PRINT ’’Wertetabelle von Cosinusquadrat:” 

Werte_Tab &FN Cos2#(X#),0#,1#, .1# 

A8 = INPUTS (1 ) 

END 

> 

DEF FN Sin2#(X#)= SIN(X#)* SIN(Xf) 

DEF FN Cos2#(X#)= C0S(X#)* C0S(X#) 

» 

DEF PROC Werte_Tab(Ptr_To_Df_Fn,Von# ,Bis# .Schritt# ) 

LOCAL X#=Von# 

J 

WHILE X#<=Bis# 

PRINT X# ,FN *Ptr_To_Df_Fn# (X# ) ’Vorsicht: 

X#=X#+Schritt# ’Hier kann compiliert 

WEND ’keine Typpriifung mehr 

RETURN ’durchgefiihrt werden 

WICHTIG: Werrn Sie auch den Compiler verwenden, achten Sie auf genaue 
Ubereinstimmung der Parameterlisten der uber Zeiger aufgerufenen Funtionen. Das 
Compilat kann zur Laufzeit keine Typanpassung vomehmen, da nicht bekannt ist auf 
welche Funktion der Zeiger gerade verweist. 1m oberen Beispiel diirfen Sie "FN 
*Ptr_To_Df_Fn" nur mit einem Double-Float als Parameter aufrufen (hier X#). Die 
normalerweise notwendige Konvertierung von integer nach double-float kann nicht 
automatisch erfolgen, der Integer Parameter wird falsch tibergeben. 


Weitere Beispiele finden Sie im Ordner DEMO auf der Programmdiskette. 
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ABS 


Typ: 

Funktion 

Syntax: 

ABS(<num.Ausdruck>) 

Erklarung: 

ABS berechnet den Absolutbetrag des numerischen Ausdrucks. 
Negative Werte erhalten so ein positives Vorzeichen, wahrend positive 
Werte unverandert bleiben. 

Beispiel: 

0 A=-5.2 

1 PRINT A 

2 PRINT ABS(A) 

3 PRINT ABS ( A+3 . 2 ) +3 - 2 


-5-2 


5-2 


5-2 


AES 

Typ: 

Befehl 

Syntax: 

AES(<num.Ausdruck>, <Feldvariable>, <Feldvariable>, <Fe!dvariable>, 
<Feldvariable>, <Feldvariable>) 

AES(<Funktionsnummer>, <GLOBAL-Feld>, <INTIN-Feld>, <ADDRIN- 
Feld>, <INTOUT-Feld>, <ADDROUT-Feld>) 

Erklarung: 

Mit dem Befehl AES rufen Sie GEM AES (Graphics Environment 
Manager - Application Environment Services) auf. Die einzelnen 
Funktionen des GEM AES schlagen Sie bitte im Anhang nach. 

Fur VDI- und AES-Befehle benutzen Sie einfacher die GEM- oder 
EasyGEM -Library. 

AND 

Typ: 

Operator 

Syntax: 

<num.Ausdruck> AND <num.Ausdruck> 

Erklarung: 

Die beiden Ausdriicke werden bitweise “logisch und" verkniipft. 

Beispiel: 

0 PRINT BINS (961010 AND 961100) 

1 IF 1<2 AND 2<3 THEN PRINT ”Hab’ ich’s doch gevuBt!” 

2 IF 1<4 AND 2=4 THEN PRINT ”Das ist aber falsch!!!” 
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1000 

Hab’ ich’s doch gewuBt! 

ARCCOS 

Funktion 

ARCCOS(<num.Ausdruck>) 

Berechnet den arcus cosinus des numerischen Ausdrucks. Der 
numerische Ausdruck mufi einen Wert zwischen -1 und 1 sein. Das 
Ergebnis ist abhangig vom eingestellten Winkelmodus (siehe DEG, 
RAD). 

0 PRINT ARCCOS (-.5) 

1 DEG 

2 PRINT ARCCOS ( 1 ) 

2.0943951 
84.26083 


ARCCOT 

Typ: Funktion 

Syntax: ARCCOT(<num.Ausdruck>) 

Erklarung: Berechnet den arcus cotangens des numerischen Ausdrucks. Das 

Ergebnis ist abhangig vom eingestellten Winkelmodus (siehe DEG, 
RAD). 

Beispiel: 0 PRINT ARCC0T(5), 

1 DEG 

2 PRINT ARCCOT ( 1 ) 

■ 19759»6 45 


ARCOTH 

Funktion 

ARCOTH( <num . Ausdruck> ) 

Berechnet den area cotangens hyperbolicus des numerischen 
Ausdrucks. Der numerische Wert mufi aufierhalb des Bereichs von -1 
bis 1 liegen. 


Typ: 

Syntax: 

Erklarung: 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 
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Beispiel: 0 PRINT ARC0TH(5) 

.20275255 


ARCSIN 

Typ: Function 

Syntax: ARCSIN(<num.Ausdruck>) 

Erklarung: Berechnet den arcus sinus des numerischen Ausdrucks. Der 

numerische Ausdruck mufi ein Wert zwischen -1 und 1 sein. Das 
Ergebnis ist abhangig vom eingestellten Winkelmodus (siehe DEG 
RAD). 

Beispiel: 0 PRINT ARCSIN(I), 

1 DEG 

2 PRINT ARCSIN(.5) 

1-5707965 50 


ARCTAN 

Typ: Funktion 

Syntax: ARCTAN(<num.Ausdruck>) 

Erklarung: Berechnet den arcus tangerts des numerischen Ausdrucks. ARCTAN ist 

identisch mit ATN. Das Ergebnis abhangig vom eingestellten 
Winkelmodus (siehe DEG, RAD). 

ARCTAN ( -1 ) 

1 DEG 

2 PRINT ARCTAN ( 1 ) 

-.78559816 
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ARSINH 


Typ: 

Syntax: 

Erklarung: 


Funktion 

ARSINH( <num. Ausdruck>) 

Berechnet den area sinus hyperbolicus des numerischen Ausdrucks. 
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Beispiel: 0 PRINT AHSINH(-I) 

-.88137559 


ARTANH 

Typ: Funktion 

Syntax: ARTANH(<num.Ausdruck>) 

Erklarung: Berechnet den area tangens hyperbolicus des numerischen Ausdrucks. 

Der numerische Ausdruck mufi ein Wert iimerhalb von - 1 und 1 sein. 

Beispiel: 0 PRINT ARTANH ( .5) 

-.54930614 

AS 

Erklarung: siehe NAME ... AS 

ASC 

Typ: Funktion 

Syntax: ASC(<Stringausdruck>) 

Erklarung: Ermittelt den ASCII-Wert des ersten Zeichens vom Stringausdruck. 

ASC ist die Urnkehrfunktion von CHR$. 

Siehe auch ASCII-Tabelle. Achtung: ASC(““) ergibt eine Fehlermeldung. 
Der Stringausdruck darf kein Leerstring sein. 

Beispiel: 0 PRINT ASC(”abc”) 

1 PRINT ASC ( CHHS ( 24 ) ) 

97 

24 


ATN 


Typ: 

Syntax: 


Funktion 

ATN(<num.Ausdruck>) 
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Erklarung; Berechnet den arcus tangens des numerischen Ausdrucks. ATN ist 
identisch mit ARCTAN. Das Ergebnis ist abhangig vom eingestellten 
Winkelmodus (siehe DEG, RAD). 

Beispiel: 0 PRINT ATN (-1 ) 

1 DEG 

2 PRINT ATN ( 1 ) 

-.78539816 

45 


BACKUP 

Typ: Befehl 

Syntax: BACKUP <Stringausdruck> 

BACKUP <Dateiname> 

Erklarung: Erstellt von der/den Datei(en) eine Sicherheitskopie. 

Die Sicherheitskopie erhalt die Extension ".BAK" und wird im selben 
Verzeichnis abgelegt. Jokerzeichen im Dateinamen sind zugelassen. 

Kann/konnen die Datei(en) nicht gefunden werden, wird der Befehl 
abgebrochen und ohne Fehlermeldung im Programmablauf 
fortgefahren. 

Beispiel: BACKUP ”a:\*.BAS” 

BACKUP ’’version?.*” 


BINS 

Typ: Funktion 

Syntax: BIN$(<num.Ausdruck>) 

Erklarung: Wandelt den numerischen Ausdruck in eine Zeichenkette um, die den 

gerundeten Wert des Ausdrucks als Binarzahl darstellt. Der num. 
Ausdruck wird immer zuvor nach Integer- Langwort-Format gewandelt. 
Ein betragsmaBig zu grofier Wert erzeugt ein "Overflow”. 

Beispiel: 0 PRINT BINS (4 ) , BINS ( -3 ) 

1 PRINT BINS (24) 

2 PRINT BINS ( 1E+10 ) 


100 


11 
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BIOS 

Typ: 

Syntax: 


Erklarung: 


Beispiel: 


BIT 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


11000 

? Overflow in 2 


Befehl 

BIOS[(][<imm. Variable>],<num.Ausdruck> 

[[,[L ]<num.Ausdruck>]][)] 

BIOS[(][<Riickgabe Variable>],<Funktionsnummer> [[,[L 
]<Parameter>]][)] 

Die in Funktionsnummer genannte BIOS-Funktion wird aufgerufen und 
Parameterliste iibergeben Der Riickgabe-Wert der BIOS-Funktion 
wird der Riickgabe-Variable zugewiesen. Wenn vor den Parametern ein 
b gestellt ist, so wird der Parameter als LONG iibergeben, ansonsten 
immer als WORD, 

Siehe auch BIOS Funktionsliste. 

0-Schleife 

1 BIOS (Shift, 11 , -1 ) 

2 PRINT @(0,0) ; Shift 
5 GOTO Schleife 

4 , wenn CONTROL gedriickt 


Funktion 

BIT(<num.Ausdruck>,<num.Ausdruck>) 

BIT(<Bitnummer>,<Wert>) 

Der gerundete Wert wird in eine 32 stellige Binarzahl gewandelt (wie 
CINTL). Ein betragsmafiig zu grofier Wert erzeugt ein "Overflow". 

Die Funktion ergibt - 1, wenn das von rechts gezahlte Bit der Binararzahl 
gesetzt ist, andernfalls 0. 

Das niederwertigste Bit hat die Bitnummer 0. 

Das hochstwertigste Bit hat die Bitnummer 31 und stellt das Vorzeichen 
dar. Ein falsche Bitnummer erzeugt ein "Illegal function call". 

0 PRINT BIT (0,1 ) 

1 PRINT BIT (2,1 ) 

2 PRINT BIT (31,-1) 
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5 PRINT BIT (12,-1) 

-1 

0 

-1 

-1 


BIT 

Typ: 

Syntax: 


Erklamng: 


Beispiel: 


Befehl 

BIT (<num.Ausdruck>,{<Integer- Variable> | (<num.AusdruCk>)))=<num, 
Ausdruck> 

BIT (<Bitnummer>,{<Integer-Variable> | (<Speicheradresse>))=<Bit- 
wert>) 

Weist, wenn Bitwert null ist, einem einzelnen Bit den Wert null zu, 
andernfalls den Wert eins. 

Das Bit wild durch Bitnummer angegeben. Das niederwertigste Bit hat 
die Bitnummer null. 

Es konnen entweder Bits von Ganzzahl-Variablen Oder von Bytes im 
Speicher geandert werden. 

WICHTIG: Bei Anderungen von Speicher erfolgt der Zugriff iramer 
byteweise d.h. die hochste Bitnummer ist 7. Beim Modifizieren von 
Integer- Variablen hingegen sind Bitnummer bis 31 erlaubt. Eine falsche 
Bitnummer fiihrt zu einem "Illegal function cair. 

0 Adresse=MEM0RY(1 ) 

1 PRINT PEEK(Adresse) 

2 BIT (2, (Adresse) )=1 
) PRINT PEEK (Adresse) 

4 A=19 

5 BIT ( 2 , A ) =0 

6 PRINT A 


0 

4 

1 ? 
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BITBLT 

Typ: Befehl 

Syntax: BITBLT <num.Ausdruck>[,<num.Ausdruck>,<num.Ausdruck>,<num. 

Ausdruck>] TO <num Ausdruck>[,<num Ausdruck>,<num. Ausdruck>, 
<num Ausdruck>][;<num.Ausdruck>] 

BITBLT <num.Ausdruck> TO <numAusdruck>, COLOR 
<num Ausdruck> 

1: BITBLT <X1>, <Yl>,<Breitel>,<Hohel> TO <X2>,<Y2>, <Breite2>, 
<Hohe2>[ ;<Modus>] 

2: BITBLT <X>,<Y>,<Breite>,<Hohe>TO <Speicheradresse> [ ;<Modus> ) 

3: BITBLT <Speicheradresse> TO <X>,<Y>,<Breite>,<Hohe>[;<Modus>] 

4: BITBLT <Speicheradressel> TO <Speicheradresse2>, COLOR 
<F£irbe> 

Erklarung: Kopiert einen rechteckigen Bildschirmausschnitt. Als Quelle bzw. Ziel 

dienen je nach Syntax: 

1 : von Bildschirm nach Bildschirm 
2: von Bildschirm nach Speicher 
3: von Speicher nach Bildschirm 
4: von Speicher nach Speicher 

Syntax 4 ermoglicht die Umwandlung von s/w-Vorlagen in Farbblits, 
die dann direkt in den Bildschirm geblittet werden konnen. Als Farbe ist 
je nach Auflosung ein Wert zwischen 0 und 1, 0 und 3, bzw. 0 und 15 
anzugeben (0 bis 255 bei ATARI TT). 

Bei Syntax 1 bis 3 ist zusatzlich die Angabe eines Modus moglich, der 
eine punktweise Verkniipfung der Bildinformationen von Quelle und 
Ziel ermoglicht: 


MODUS 0: 
MODUS 1: 
MODUS 2: 
MODUS 3: 
MODUS 4: 
MODUS 5: 
MODUS 6: 
MODUS 7: 
MODUS 8: 
MODUS 9: 
MODUS 10: 
MODUS 11: 
MODUS 12: 


immerO 

Quelle AND Ziel 
Quelle And (NOT Ziel) 
Quelle 

(NOT Quelle) AND Ziel 
Ziel 

Quelle XORZiel 
Quelle OR Ziel 
NOT(Quelle OR Ziel) 
NOT(Quelle XORZiel) 
NOT Ziel 

Quelle OR (NOT Ziel) 
NOT Quelle 



Beispiel: 


BLOAD 
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MODUS 13: (NOT Quelle) OR Ziel 
MODUS 14: NOT(Quelle AND Ziel) 

MODUS IS: immer 1 

Wird die Angabe Modus weggelassen, so wird nach Modus 3 
verfahren. 

Bit-Blits in den Bildschirm beriicksichtigen im Gegensatz zur GEM 
VDI-Funktion ein gesetztes Grafikfenster (siehe CLIP). 

Bei Bit-Blits innerhalb des Bildschirms gelten die jeweils kleineren 

Hohen und Breiten. 

Der Speicherplatzbedarf fur einen Bit-Blit in den Speicher lafit sich 
folgendermafien berechnen: 

6+(Breite+ 15) SHR 4 * Hohe * 2 * Farbebenen. 

Die sechs Wort Vorspann setzen sich so zusammen: 

1. Anzahl Bitplanes * 2; entspricht 1 SHL (3-Auflosung) 

2. Breite in Pixel 

3. Hohe in Pixel 

Farbebenen: s/w 1 

4 Farben 2 
16 Farben 4 
256 Farben 8 

0 Bildspeicher= MEM0RY(6+65 SHE 4*(50+15)*2*4) 

1 PELLIPSE 50,50,30,20 

2 BITBLT 25,20,50,50 TO Bildspeicher 

3 WAIT .5 

4 CLS 

5 BITBLT Bildspeicher TO 20,20,50,50 

6 WAIT .5 

7 BITBLT 20,20,50,50 TO 20,50,50,50,6 

8 WAIT .5 

9 PCIRCLE 45,55,8 


Typ: 

Syntax: 


Befehl 

BLOAD <Stringausdruck>[,<mim.Ausdruck>] 
BLOAD <Dateinarne>[,<Startadresse>] 
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Erklarnng: 


Beispiel: 


BOX 

Typ: 

Syntax: 

Erklarnng: 


Beispiel: 

BRK 

Typ: 

Syntax: 

Erklarnng: 


BSAVE 


Die genannte Datei wird ab der Startadresse in den Speicher geladen. 
Fehlt dieser Ausdruck, so wird in den Bildschirm (logische 
Bildschirmadresse) geladen. 

Speicher= MEMOBY(100) 

BLOAD "BEISPIEL. DAT”, Speicher 


Befehl 

BOX <num.Ausdruck>,<num.Ausdruck>{ TO <num.Ausdruck>,<num. 
Ausdruck> | ,<num.Ausdruck>,<num.Ausdruck>} 

BOX <X>,<Y>{ TO <X2>,<Y2> | <Breite>,<Hohe>} 

Zeichnet ein nicht gefiilltes Rechteck auf den Bildschirm. Dabei sind 
entweder zwei gegeniiberliegende Ecken anzugeben, Oder eine Ecke, 
Breite und Hohe des Rechtecks. 

Farbe, Linienstil und -breite konnen iiber LINE COLOR, LINE STYLE 
bzw. LINE WIDTH bestimmt werden. 

1st mittels CLIP ein Bildfenster definiert, wird auBerhalb dieses Bereichs 
nicht gezeichnet. 

Siehe auch RBOX, PBOX, PRBOX. 

0 BOX 20,30,70,40 


Befehl 

BRK 

Dieser Befehl dient ausschliefilich zur Fehlersuche in compilierten 
Programmer Er lost im Compilat eine Ausnahmebehandlung "Illegal 
Instruction" aus. Damit ist es moglich, ein Programm an einer 
bestimmten Stelle zu unterbrechen, um so die Fehlersuche mit einem 
Debugger zu beginnen. 

Im Interpreter fiihrt dieser Befehl zu einem “Internal Error". Dies ist 
jedoch normal und hat keine Bedeutung. 


Typ: 


Befehl 
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Syntax: 

Erklarung: 


Beispiel: 

CALL 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


BSAVE <Stringausdruck>[,<num.Ausdruck>,<num.Ausdruck>] 

BSAVE <Dateiname>[,<Startadresse>,<Lange>] 

Speichert den ab Startadresse liegenden Speicherbereich unter 
Dateiname ab. Fehlen Adresse und Lange, wird der Bildschirm abge- 
speichert. Es werden direkt die Bilddaten ohne Farbpalette abge- 
speichert, d.h. je nach Bildschirmauflosung entsteht eine Datei tnit 
32000 Bytes (fur ST-Auflosungen) Oder 153600 Bytes (fur TT- 
Auflosungen). 

BSAVE ’’BILDSCH.DAT” 


Befehl 


CALL <num. Variable>[(][L ]<num.Ausdruck>][[,[L ]<num.Ausdruck>]])] 
Ein Maschienensprache-Unterprogramm wird aufgerufen. Die 
Startadresse ist durch die numerische Variable gegeben. Die folgenden 
Ausdrficke werden in umgekehrter Reihenfolge auf dem Stack 
iibergeben d.h. der erste Parameter befindet sich zu unterst auf dem 
Stack also bei 4(SP). Den Ausdriicken darf ein “L " voran gestellt 
werden, um den betreffenden Parameter als LONG zu iibergeben. 
Ansonsten wird immer ein WORD iibergeben. 

Das Maschinenprogramm mufi mit RTS enden und wird im Supervisor- 
Modus aufgerufen. Es darf alle Register verandern aufier USP und SSP. 
Im Register A0 erhalt es die Adresse des Segmentpointers iibergeben. 
Es ist damit z.B. moglich mit Hilfe iibergebener Zeiger auf eine 
bestimmte Variable zuzugreifen. Das Maschinenprogramm kann im 
Register DO einen Wert zuriickgeben. Dieser befindet sich nach der 
Ausfiihrung des Maschinenprograi RESERVED(O). Fehler, wie 

"Adress Error" Oder "Bus Error", die Ihr Maschinenprogramm 
v. ..vsacht, werden in der Zeile des CALL Befehls gemeldet. 

0 Test$ = ’’PNJLSPO/TPGDXBSF” 


1 CALL Decode ( L &IestS, 

2 PRINT Test# 


) ’Zeiger auf Tests und 
”1” iibergeben 


0MIKR0N. SOFTWARE 


Das Maschinenprogramm: 
move.l 4(SP) ,A1 
move.w 8(SP),D1 


; Zeiger auf String holen 
; Parameter (die ”1”) 
holen 
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loop: 


CASE 

Typ: 

Syntax: 

Erklarung: 


CDBL 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


move . 1 

(A1J.A2 

; Zeiger ins 

adda . 1 

28(A0) ,A2 

Stringsegment bilden 

move.w 

4(A1 ) ,D0 

; Lange des Strings 

subq.w 

#1 ,D0 

; wg. DBRA 

move.b 

(A2),D2 

; ein Zeichen des Strings 

sub ,b 

D1 ,D2 

holen 

; Zeichen modifizieren 

move.b 

D2,(A2)+ 

; und Zeichen 

dbra 

D0,loop 

znriickschreiben 
; fiir alle Zeichen des 

rts 


Strings 


Befehl 

CASE <Ausdruck> [TO <Ausdruck>][[,<Ausdruck> [TO <Ausdruck>]]] 
CASE leitet innerhalb einer SELECT-CASE Anweisung einen Teilzweig 
ein. Dieser Programmzweig wird dann ausgefuhrt, weiui eine der 
genannten Moglichkeit auf den bei SELECT genannten Ausdruck 
zutrifft. Mehrere Moglichkeiten werden einfach mit Kommata 
abgetrennt aufgezahlt. Auch Bereiche sind mit TO moglich (siehe 
SELECT). 


Funktion 

CDBL(<num.Ausdruck>) 

Wandelt einen beliebigen numerischen Ausdruck in doppelt-genaues 
Fliefikomma-Format um. 

Siehe auch CINT, CINTL, CSNG. 

0 A=1 

1 B=3 

2 PRINT CDBL(A/B) ’Genauigkeit: 9-5 Stellen 

Nachkomma 
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CHAIN 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


CHDIR 

Typ: 

Syntax: 

Erklaning: 


Beispiel: 


3 PRINT CDBL(A)/CDBL(B) ’Genauigkeit: 17 Stellen 

Nachkomma 

•35555335337215844 

•33333333333333333 


Befehl 

CHAIN [MERGE ] <Stringausdruck> [ , <Marke> ] 

CHAIN [MERGE ]<Dateiname>[,<Start-Marke>] 

Ladt die Datei als Basic -Programm und startet es. Durch MERGE wird 
das Programm zum aktuellen hinzugeladen. Bei gleichen 
Zeilennummern wird die alte Zeile geloscht (siehe auch RENUM). 

Das zu ladende Programm muli als ASCII-Datei vorliegen (als Block 
gesichert Oder SAVE ,A). 

Anders als beim Befehl RUN konnen Variablenwerte iibergeben werden 
(siehe COMMON). 

Zusatzlich kann eine Startmarke angegeben werden, an der das 
aufgerufene Programm starten soil. Fehlt diese Angabe, so wird am 
Programmanfang gestartet. 

CHAIN "BEISPIEL. BAS”, 23 


Befehl 

CHDIR <Stringausdruck> 

Legt das Standard-Laufwerk und den Standardpfad auf den in 
Stringausdruck genannten Pfad fest. Es ist moglich, einen kompletten 
Pfad zu benennen, Oder durch folgende Stringausdriicke innerhalb des 
Pfades zu wandern: 

Ordner schliefien, zuriick auf nachsthohere Ebene 
"\" : zuriick ins Hauptverzeichnis 

"[\|<Ordner>[[\<Ordner>]]": Ordner (und Unterordner) offnen, mit 
fiihrendem \ vom Hauptverzeichnis aus 


CHDIR ”A:\.BAS” 

CHDIR ”\” 

CHDIR ”B:\BASIC\PROGR” 


S8 


CHR$ 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


CINT 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


CINTL 

Typ: 

Syntax: 


Funktion 

CHR$(<num.Ausdruck>) 

Erzeugt einen ein Zeichen langen String entsprechend der ASCII - 
Tabelle. CHR$ ist die Umkehrfunktion zu ASC. 

Siehe auch ASCII -Tabelle. 

0 PRINT CHR$(7) 

1 PRINT CHR$(80) ; CHR$(76) 

2 A8= CHR$(189) + ” by OMIKRON . ” 

3 PRINT At 

PL 

© by OMIKRON. 


Funktion 

CINT(<num.Ausdruck>) 

Wandelt einen beliebigen numerischen Wert in Integer-Wort-Format 
(ganze Zahlen von -32768 bis +32767) um. Gerundet wird wie bei INT. 
Der Definitionsbereich der Funktion umfafit natiirlich gerade den 
Integer- Wort -Bereich. Andere Werte fiihren zu "OVERFLOW". 

Siehe auch CDBL, CINTL, CSNG. 

0 A=1 

1 B=3 

2 PRINT CINT(A/B) 

3 PRINT CINT(A)/CINT(B) 

4 PRINT CINT (40000) 

0 

•33333353 

? Overflow in 4 


Funktion 

CINTL( <num. Ausdruck>) 
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Erklanutg: Wandelt einen beliebigen numerischen Wert in Integer-Langwort- 

Format (ganze Zahlen von -214783658 bis +214783657) um. Gerundet 
wird wie bei INT. Der Definitionsbereich der Funktion umfafit den 
Integer-Langwort-Bereich. Andere Werte fiiluren zu “OVERFLOW". 

Siehe auch CDBL, CINT, CSNG. 

Beispiel: 0 A=1 

1 B=3 

2 PRINT CINIL(A/B) 

3 PRINT C INTL ( A ) /CINTI ( B ) 

4 PRINT CINTL( 1E+10) 

0 

•53535335 

? Overflow in 4 


CIRCLE 


Typ: 

Syntax: 


Erklanmg: 


Beispiel: 


Befehl 

CIRCLE <num.Ausdruck>,<num.Ausdruck>,<num.Ausdruck>[,<num. 
Ausdruck>,<num.Ausdruck>] 

CIRCLE <X>,<Y>,<Radius>[,<Startwinkel>,<Endwinkel>] 

Zeichnet einen nicht gefiillten Kreis auf den Bildschirm. <X> und <Y> 
geben den Kreismittelpunkt an. Optional konnen Start- und Endwinkel 
in Zehntel-Graden angegeben werden. Hierbei ist Winkel-0 rechts vom 
Mittelpunkt, Winkel-900 oberhalb des Mittelpunkts etc. 

Farbe, Linienstil und -breite konnc . LINE COLOR, LINE STYLE 
bzw. LINE WIDTH bestimmt werden. 

Ist mittels CLIP ein Bildfenster definiert, wird auflerhalb dieses Bereichs 
nicht gezeichnet. 

Siehe auch ELLIPSE, PCIRCLE, PELLIPSE. 

0 CIRCLE 70,50,40 

1 CIRCLE 70,50.30,0,1800 

2 CIRCLE 60,50,20,1800,3200 

3 CIRCLE 70,50,25,500,600 

4 CIRCLE 70,50,25,1200,1300 
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CLEAR 

Typ: 

Syntax: 

Erklarnng: 


Beispiel: 


CLIP 

Typ: 

Syntax: 


Erklarnng: 


Befehl 

CLEAR [<num.Ausdruck>][,<num.Ausdruck>] 

CLEAR [<GEMDOS-Speicher>][,<Stack-GroBe>] 

Loscht alle Variableninhalte und Dimensionierungen. Offene Dateien 
werden geschlossen, ON ERROR GOTO- und ON TIMER GOSUB- 
Aufrufe werden abgeschaltet. COMMON-Anweisungen werden 
geloscht. Optional konnen die Grofie des GEMDOS-Speichers und/ 
Oder des Prozessor-Stapels bestimmt werden. Letztere legen Sie mit 
Stack-Grofie fest. 

Standardmafiig sind fiir diese 65536, bzw. 4096 Bytes belegt. 

Der GEMDOS-Speicher wird zum Reservieren vom Speicher mit 
MEMORY und von bestimmten Betriebssystemfunktionen benotigt. 
Wenn Sie also selbst eine grofiere Menge an GEMDOS-Speicher 
anfordern, so mtissen Sie ihm entsprechend grofl einstellen. 

Stapelspeicherplatz wird vom Basicprogramm beim Aufrufen von 
Unterprogrammen, von lokalen Variablen und zum Sortieren benotigt. 
Programme mit rekursiven Unterprogrammaufrufen benotigen deshalb 
unter Umstanden mehr Stapelplatz. 

Zu beachten ist: Der Verbrauch an Stapelplatz ist im Interpreter und im 
Compilaten unterschiedlich und mufi gegebenfalls getrennt ermittel 
werden. 

Siehe auch FRE und MEMORY. 

a) CLEAR 52768,16584 
CLEAR ,4096 

b) ’ 50 KB BASIC-Speicher: 

CLEAR 0 

CLEAR FRE(0) -50000 


Befehl 

CLIP [<num.Ausdruck>,<num.Ausdruck>{ TO <num.Ausdruck>,<num. 
Ausdruck> | ,<num.Ausdruck>,<num.Ausdruck>}] 

CLIP [<X>,<Y>{ TO <X2>,<Y2> | .Breite.Hohe}] 

Definiert ein Grafik-Fenster, das den Zeichenbereich fiir folgende 
Zeichenbefehle begrenzt: BITBLT, BOX, CIRCLE, DRAW, ELLIPSE, FILL, 
PBOX, PCIRCLE, PELLIPSE, POLYGON, PPOLYGON, PRBOX, RBOX, 
TEXT. Aufierhalb dieses Fenster wird die Zeichenoperation zwar 
ausgefiihrt, der Bildschirm wird dabei jedoch nicht verandert. 
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Beispiel: 


CLOSE 

Typ: 

Syntax: 

Erklarang: 

Beispiel: 


CLS 

Typ: 

Syntax: 

Erklarang: 

Beispiel: 


Das Fenster kann entweder durch Angabe zweier gegenuberliegender 
Eckpunkte Oder eines Eckpunktes mit Hohe und Breite definiert 
werden. 

Ohne Parameterangaben wird das Grafik-Fenster ausgeschaltet (dies 
ist auch die Standard -Einstellung). Die Zeichenbefehle werden nun in 
keiner Weise begrenzt. Es ist deshalb moglich, dafi z.B. durch falsch 
berechnete Koordinaten, ungewollt wichtiger Speicher tiberschrieben 
wird (Abstiirze und Datenverluste moglich). Sie sollten daher immer 
wenn Sie mit Grafikbefehlen arbeiten das Grafik Fenster auf den 
gesamten Bildschirm einstellen: "CLIP 0,0,W_PIXEL,H_PIXEL". 

0 CLIP 50,30,20,20 

1 PCIRCLE 30,30,20 

2 CLIP 60,60 TO 150,100 

3 PRBOX 65,65,200,200 


Befehl 

CLOSE [<num.Ausdruck>[[,<num.Ausdruck>]]] 

CLOSE [<Dateinummer>[[,<Dateinummer>]]] 

SchlieBt die mit der Dateinummer assozierte(n) Datei(en). Ohne Angabe 
von Parametern werden alle Dateien geschlossen. 

Siehe auch OPEN. 

CLOSE 

CLOSE 1,7,0m 


Befehl 

CLS 

Der gesamte Bildschirm wird geloscht und der Cursor springt in die 
linke obere Ecke des Text-Fensters. 

0 PELLIPSE 50,50,40,20 

1 WAIT .5 

2 CLS 
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CMD 

Typ: 

Syntax: 


Erklarung: 


Beispiel: 


Funktion 

CMD <num.Ausdruck> 

CMD <Dateinummer> 

Lenkt die Ausgaben von PRINT, LIST etc. auf eine Datei um. Die der 
Dateinummer entsprechende Datei muB zuvor mittels OPEN geoffnet 
worden sein. Durch die Moglichkeit Dateien auch auf den Drucker zu 
offnen (siehe OPEN), kann die Ausgabe auch auf den Drucker Oder die 
serielle Schnittstelle umgelenkt werden, 

1st der numerische Ausdruck null, so kommen die Ausgaben wieder 
zum Bildschirm. Die Ausgabe folgender Befehle wird durch CMD 
umgelenkt: PRINT, PRINT#, LPRINT, WRITE, LIST, LLIST, DUMP, 
LDUMP. Bei CMD sind LLIST und LDUMP vor LIST und DUMP 
vorzuziehen, da LLIST im Gegensatz zu LIST keine Steuerzeichen 
ausgibt, was beim Drucken Oder Schreiben in eine Datei hinderlich 
ware. 

OPEN ”P” , 3 : CMD 3 
CMD 0 


COLOR 

Erklarung: siehe BITBLT, LINE COLOR, FILL COLOR 


COMMON 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Befehl 

COMMON <Variable>[[, Variable]] 

Gibt die Variablen an, deren Inhalte bei Aufruf eines Programms mit 
CHAIN an dieses iibergeben werden. 

Der Befehl muB mit der gleichen Variablenliste sowohl im aufrufenden, 
als auch im aufgerufenen Programm am Anfang stehen, bzw. in der bei 
CHAIN genannten Start-Zeile. 

Die Variableninhalte werden der Reihe nach zugewiesen. Eine 
Typenumrechmmg (beispielsweise von Integer nach Fliefikomma) wird 
automatisch diurchgefiihrt. Einer String-Variablen eine numerische 
Variable zuzuweisen, Oder umgekehrt, ist unzulassig. Felder konnen 
nicht als ganzes iibergeben werden. Die Zuweisung einzelner Elemente 
ist aber moghch. 

Ein COMMON wird durch CLEAR geloscht. 

COMMON A(t,De,N(23) ,N(24) ,N(25) 
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COMPILER 

Typ: Befehl 

Syntax; COMPILER {OFF | ON | <Stringausdruck>} 

Erklarung: Zwischen COMPILER OFF und COMPILER ON stehende ProgramnV 

teile werden beim Compilieren nichl mitiibersetzt und fallen so aus dem 
Programm. 

Im Stringausdruck konnen dem Compiler Steuerworte (Z.B. 
"Multitasking always" etc.) iibergeben werden, die vom Interpreter nicltt 
beachtet werden. 

Nahere Informationen hierzu konnen Sie dem Compiler-Handbuch 
entnehmen 

Beispiel: COMPILER OFF 

COMPILER ”Trace_0n” 


COMPILER 

Typ: Funktion 

Syntax: COMPILER 

Erklarung: Ergibt den Wert -1, wenn das laufende Programm als Compilat, und 0, 

wenn es im Interpreter lauft. 

Beispiel: 0 IF NOT ( COMPILER ) THEN PRINT "Interpreter!” 

1 IF COMPILER THEN PRINT "Compiler!” 

Interpreter! 


CONT 

Typ: Befehl 

Syntax: CONT [<Marke>][ TO <Marke>] 

CONT [<Start-Marke>][ TO <End-Marke>] 

Erklarung: Fuhrt die Programmausfiihrung nach Abbruch durch CONT OL-C 

Oder STOP fort, an der Unterbrechungsstelle fort, bzw. an der Start- 
Marke. Optional kann die Programmausfiihrung an der End-Marke 
automatisch wieder angehalten werden. 

Der Befehl CONT kann nicht mehr ausgefiihrt werden, nachdem am 
Programm Anderungen vorgenommen wurden, 16 Fehlermeldungen 
ausgegeben wurden Oder nach einer Fehlermeldung "? Out of Memory". 
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Beispiel: CONI Berechnung TO Ergebnis 

’ (Der Programmteil zwischen Marke -Berechnung und - 
Ergebnis wird durchlaufen , danach erneut gestoppt) 


CONTINUE 

Typ: Befehl 

Syntax: CONTINUE 

Erklaning: CONTINUE innerhalb einer SELECT-CASE-Anweisung iibergeht 

jeweils die nachste CASE-Bedingung und fiihrt das Programm hinter 
dem CASE weiter aus. 

Beispiel: 0 A|=”Q” 

1 SELECT At 

2 CASE ”Q” 

5 PRINT ”Das Zeichen war ein Q” 

4 CONTINUE 

5 CASE ”0" TO ”9" 

6 PRINT ”Das Zeichen war eine Ziffer” 

7 END_SELECT 

Das Zeichen war ein Q 
Das Zeichen war eine Ziffer 


COPY 

Typ: Befehl 

Syntax: COPY <Dateiname> TO <Dateiname> 

COPY <Quell-Dateiname> TO <Ziel-Dateiname> 

Erklaning: Erstellt von Quell-Datei eine Kopie, mit dem Namen Ziel-Datei. Quell- 

und Ziel-Datei miissen jeweils mit Pfad angegeben werden. Fehlt in 
Ziel-Datei der Dateiname, so erhalt die Kopie den Namen des Originals. 
Kann die Datei nicht gefunden werden, wird der Befehl abgebrochen 
und ohne Fehlermeldung im Programmablauf fortgefahren. 

COPY ”A:\*.BAS” TO ”C:\” 


Beispiel: 
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COS 

Typ: Funktion 

Syntax: COS(<num.Ausdruck>) 

Erklaxung: Berechnet den Cosinus des numerischen Ausdrucks. Das Ergebnis ist 

abhangig vom eingestellten Winkelmodus (siehe DEG, RAD). 

Beispiel: 0 PRINT COS ( PI ) 

1 DEG 

2 PRINT COS (90) 

-1 

0 


COSEC 

Typ: Funktion 

Syntax: COSEC(<num.Ausdruck>) 

Erklamng: Berechnet den Cosecans des numerischen Ausdrucks. Das Ergebnis ist 

abhangig vom eingestellten Winkelmodus (siehe DEG, RAD). 

Beispiel: 0 PRINT COSEC ( PI /2) 

1 DEG 

2 PRINT COSEC ( 180) 

1 

-6.8356528E+8 


COSECH 

Typ: Funktion 

Syntax: COSECH(<num.Ausdruck>) 

Erklamng: Berechnet den Cosecans Hyperbolicus des numerischen Ausdrucks. 

Beispiel: 0 PRINT COSECH(I) 


.85091813 
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COSH 

Typ; 

Syntax: 

Erklarnng: 

Beispiel: 


COT 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


COTH 

Typ: 

Syntax: 

Erklarnng: 

Beispiel: 


CSNG 

Typ: 

Syntax: 


Funktion 

COSH(<num.Ausdruck>) 

Berechnet den Cosinus Hyperbolicus des numerischen Ausdrucks. 

0 PRINT COSH (.5) 

1.127626 


Funktion 

COT(<num.Ausdruck>) 

Berechnet den Cotangens des numerischen Ausdrucks. Das Ergebnis 
ist abhangig vom eingestellten Winkelmodus (siehe DEG, RAD). 

0 PRINT COT ( 5 ) 

1 DEG 

2 PRINT COT (90) 

- 7.0152526 

0 


Funktion 

COTH(<num.Ausdruck>) 

Berechnet den Cotangens Hyperbolicus des numerischen Ausdrucks. 
Der numerische Wert mufl ungleich null sein. 

0 PRINT C0TH(1 ) 

1.5150555 


Funktion 

CSNG(<num.Ausdruck>) 
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Erklanmg: Wandelt einen beliebigen numerischen Ausdruck in einfach-genaues 

Fliefikomma-Format um. 

Siehe auch CDBL, CINT, CINTL. 

Beispiel: 0 A# = 1# 

1 B#=5# 

2 PRINT CSNG(A#/B# ) 

3 PRINT CSNG(A#)/CDBL(B#) 


■33333333 

•33333333333333333 


CSRLIN 

Typ: Funktion 

Syntax: CSRLIN 

Erklanmg: Ergibt die Zeile, in der sich der Cursor gerade befindet. Die oberste 

Zeile hat die Nummer eins, im Gegensatz zu das die oberste Zeile mit 
null zahlt. 

Siehe auch POS, LOCATE, 

Beispiel: 0 PRINT ■ (10,0) ;”Hier ist Zeile: CSRLIN 

Hier ist Zeile: 11 


CVD 

Funktion 

Syntax: CVD(<Stringausdruck>) 

Erklanmg: Die ersten 10 Zeichen des Stringausdxucks werden in eine doppelt- 

genaue-Fliefikommazahl umgewandelt. Umkehrfunktion zu MKD$. 

Die Funktion dient in erster Lillie zum Lesen von Binar-Dateien, welche 
Fliefikommazahlen nicht in ihrer lesbaren ASCII 

Darstellung, sondern in ihrer binar Darstellung enthalten. 

Beispiel: PRINT CVD ( ” 1234567890” ) 

PRINT CVD ( MKDS (1 234567890 ) ) 


0.7708077718716055D+1895 

1234567890 
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CVI 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


CVIL 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


CVS 

Typ: 

Syntax: 


Funktion 

CVI(<Stringausdruck>) 

Die ersten beiden Zeichen des Stringausdrucks werden in eine Integer - 
Wort-Zahl umgewandelt. Umkehrfunktion zu MKI$ 

Die Funktion dient in erster Linie zum Lesen von Binar-Dateien, welche 
Integer -Wort -Zahlen nicht in ihrer lesbaren ASCII -Darstellung, 
sondern in ihrer binar Darstellung enthalten. 

PRINT CVI ("12”) 

PRINT CVI( MKI$(12) ) 

12594 

12 


Funktion 

CVIL(<Stringausdruck>) 

Die ersten 4 Zeichen des Stringausdrucks werden in eine Integer- 
Langwort-Zahl umgewandelt. Umkehrfunktion zuMKIL$. 

Die Funktion dient in erster Linie zum Lesen von Binar-Dateien, welche 
Integer-Lang-Wortzahlen nicht in ihrer lesbaren ASCII-Darstellung, 
sondern in ihrer binar Darstellung enthalten. 

a) PRINT CVIL(”1254”) 

PRINT CVIL( MKIL$(1254)) 

825575492 

1254 

b) 0 REPEAT At=INKEYt UNTIL LEN ( INKEYl ) 

1 PRINT CVIL(Al) 


Funktion 

CVS(<Stringausdruck>) 
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Erklarang: 


Beispiel: 


DATA 

Typ: 

Syntax: 

Erklarang: 


Beispiel: 


DATES 

Typ: 

Syntax: 


Die ersten 6 Zeichen des Stringausdrucks werden in eine einfach- 
genaue-Fliefikommazahl umgewandelt. Umkehrfunktion zu MKS$. 

Die Funktion dient in erster Lime zum Lesen von Binar-Dateien, welche 
einfach genauc FlieBkorrunazahlen nicht in ihrer lesbaren ASCII- 
Darstellung, sondern in ihrer binar Darstellung enthalten. 

PRINT CVS( ”125456”) 

PRINT CVS( MKILt( 125456)) 

7 -70807V7E+1894 

125456 


Befehl 

DATA <Ausdruck>[[,<Ausdruck>]] 

Die numerischen und/oder String- Ausdriicke sind der Reihe nach als 
"offene Zuweisung' im Programm gespeichert. Offene Zuweisung 
bedeutet, dafi ein numerischer Ausdruck Oder ein String nicht direkt 
einer Variablen zugewiesen wird, sondern ersteinmal in einer DATA- 
Liste gespeichert wird. Erst im weiteren Programmverlauf findet die 
Zuweisung nach Auslesen mittels READ statt. Die DATA-Zuweisung hat 
auch dann Giiltigkeit, wenn sie vom Programm noch nicht durchlaufen 
wurde. Sie kann also an Stellen des Programms stehen, die rue 
durchlaufen werden. Trotzdem konnen die Daten mittels READ 
problemlos "gelesen" werden. 

Mit dem Befehl RESTORE konnen Sie den Zeiger verschieben, der auf 
die nachste offene Zuweisung zeigt (siehe RESTORE). 

0 DATA ”Hund”,A8 

1 Inh=2 

2 READ A$,B$,CS,A 
5 PRINT A$,B$,C8,A 

4 DATA "Katze" ,25*Inh 

Hund Hund Katze 46 


Befehl 

DATE$=<Strmgausdruck> 
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Erklarung: 

Weist der Systemuhr das Datum Stringausdruck zu. 
Stringausdruck ist in Abhangigkeit vom Landermodus anzugeben: 

Beispiel: 

MODE ”D” : ’’TT.MM.JJ” 

MODE ”GB” : ’’IT/MM/JJ 

MODE "USA”: ’’MM/TT/JJ” 
(T=Tag, M=Monat, J=Jahr) 

0 MODE ”D” 

1 DATE*=”21 .08.83” 

2 PRINT DATE* 


21.08.83 

DATES 

Typ: 

Syntax: 

Erklarung: 

Funktion 

DATES 

Gibt einen Stringausdruck des Datums entspechend dem eingestellten 
Landermodus: 

Beispiel: 

MODE ”D” : ’’TT.MM.JJ” 

MODE "USA”: ’’MM/TT/JJ” 
(T=Tag, M=Monat, J=Jalir) 

0 MODE ”D” 

1 DATE*=”21 .08.83” 

2 MODE ’’USA” 

3 PRINT DATE* 


08/21/83 

DEF FN 

Typ: Befehl 

Syntax: DEFFN <Funktionsname>[([<Parameterliste>])][=<Ausdruck>] 

Erklarung: Definiert eine Funktion. Es konnen ein Oder mehrere Parameter 

festgelegt werden, die beim Aufruf angegeben werden miissen. Die 
Parameter sind automatisch lokale Variablen (siehe auch LOCAL). 
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Der Wert der Funktion kann direkt durch =Ausdruck angegeben 
werden (in diesem Fall ist die Funktionsdefinition einzeilig) Oder 
alternativ nach einer ein- Oder mehrzeiligen Berechnung durch 
RETURN <Ausdruck> zuriickgegeben werden. Der Funktionsname 
beinhaltet einen Variablentyp. Die Riickgabevariable sollfe vom 
gleichen Typ sein. 

Die Funktion ist im Programm iiber 

N<Funktions-Variable>[(<Parameter>[[, Parameter]])] aufrufbar. 
ie Funktionsdefinition kann an beliebiger Stelle im Programm 
erscheinen. Eine mehrzeilige Funktionsdefinition darf wahrend des 
Programmablauf nicht durchlaufen werden. Eine mehrzeilige 
Funktionsdefinition sollte mit END. JN beendet werden. Diese 
Anweisung wirkt wie ein normales RETURN und dient in erster Linie der 
besseren Strukturierung des Programms. 

Beispiel: 0 PRINT FN Doppelt (13) 

1 PRINT FN Primzahl$(13) 

2 END 

3 DEF FN Doppelt(A)=2*A 'einzeilige Funktion 

4 DEF FN Primzahl$(A) ’mehrzeilige Funktion 

5 LOCAL N,P8=”Primzahl” 

6 FOR N=2 TO SQR(A) 

7 IF A MOD N=0 THEN P8-”keine Primzahl” 

8 NEXT N 

9 RETURN P8 
0 END_FN 

26 

Primzahl 


DEF PROC 

Typ: Befehl 

Syntax: DEF PROC <Prozedurname>[([R]<Variable>[[,[R ]<Variable>]])] 

Erklarung: Leitet eine Prozedurdefinition ein. Es koimen ein oder mehrere 

Parameter definiert werden. Die Parameter sind lokale Variablen (siehe 
auch LOCAL). Durch vorangestelltes R werden die Werte nach 
Beendigung der Prozedur an die im Prozeduraufruf genannten 
Variablen iibergeben. 

Die Prozedur wird durch ein RETURN oder besser durch ein 
END_PROC beendet. 
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Zum Aufruf ist der Prozedurnamen zu nennen und gegebenenfalls die in 
Klammern gesetzten und durch Komma getrennten Ausriicke. Ist in der 
Definition an einer Stelle ein R vor die Variable gestellt, so mufi an 
entsprechender Stelle im Aufruf eine Variable stehen. An diese wird am 
Ende der Prozedur der Inhalt der Prozedur-Variablen iibergeben. 

Die Prozedurdefinition kann an beliebiger Stelle im Programm 
erscheinen. Die Prozedurdefinition darf wahrend des Programmablaufs 
nicht durchlaufen werden. 

Beispiel: "1 Zentriere ’’Dieser Text erscheint zentriert” 

1 Gesperrt ’’OMIKRON. SOFTWARE” ,2 

2 END 

3 DEF PROC Zentriere (TexfcS) 

4 PRINT IAB( (W_CHAR-LEN(IextS) )/2) ;TextS; 

5 END_PR0C 

6 DEF PROC Ge sperrt( TextS ,Anzahl_Ieerze i chen) 

7 LOCAL I 

8 FOR 1=1 TO LEN( TextS) 

9 PRINT MIDS ( Texts ,1,1) ; 

10 PRINT ” ”*Anzahl_Leerzeichen; 

11 NEXT I 

12 END_PR0C 

Dieser Text erscheint zentriert 
OMIKRON . SOFTWARE 


DEF USR 

Typ: Befehl 

Syntax: DEF USR=<num.Ausdruck> 

Erklarung: Legt die Adresse fest, die beim Aufruf eines Maschinensprache- 

Programms durch USR angespungen wird (siehe auch USR). 

Beispiel: DEF USR Scroll_Screen 


DEFDBL 

Typ: Befehl 

Syntax: DEFDBL {Buchstabe | Buchstabe-Buchstabe}[[,{Buchstabe | Buchstabe- 

Buchstabe}]] 
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Erklarung: Es konnen einzelne Buchstaben Oder Buchstabenbereiche (nach 

Alphabet) genaimt werden. Die Buchstaben miissen grofi geschrieben 
werden. Nachfolgend im Programmtext erscheinende Variablen ohne 
Postfix, die mit einem solchen Buchstaben beginnen werden 
automatisch als doppelt genaue Fliefikomma Variablen interpretiert. 

Das nachtragliche Einfiigen des Befehls verandert schon bestehende 
Variablenstrukturen nicht. Er andert lediglich das Anzeigeverhalten des 
Editors. 

Beispiel: DEFDBL ”A-Z” ’ alle Variblen sind doppelt-genau 


DEFER 

Typ: Reserviert fur zukiinfige Anwendungen! 

Dieses Wort bitte nicht verwenden!! 

DEFINT 

Typ: Befehl 

Syntax: DEFINT {Buchstabe | Buchstabe Buchstabe}[[, {Buchstabe | Buchstabe 

Buchstabe}]] 

Erklarung: Es konnen einzelne Buchstaben Oder Buchstabenbereiche (nach 

Alphabet) genannt werden. Nachfolgend im Programmtext 
erscheinende Variablen ohne Postfix, die mit einem solchen Buchstaben 
beginnen werden automatisch als Integer -Wort -Variablen interpretiert. 

Das nachtragliche Einfiigen des Befehls verandert schon bestehende 
Variablenstrukturen nicht. Er andert lediglich das Anzeigeverhalten des 
Editors. 

Beispiel: DEFINT ”I,J,K” 


DEFINTL 

Typ: Befehl 

Syntax: DEFINTL 

{Buchstabe | Buchstabe-Buchstabe}[[, {Buchstabe | Buchstabe- 
Buchstabe}]] 

Erklarung: Es konnen einzelne Buchstaben Oder Buchstabenbereiche (nach 

Alphabet) genannt werden. Nachfolgend im Programmtext 

erscheinende Variablen ohne Postfix, die mit einem solchen Buchstaben 
beginnen werden automatisch als Integer Langwort- Variablen 
interpretiert. 
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Das nachtragliche Einfiigen des Befehls verandert schon bestehende 
Variablenstrukturen nicht. Er andert lediglich das Anzeigeverhalten des 
Editors. 

Wichtig: Der Befehl wirkt 1. direkt bei der Eingabe und 2. beim 
Ausfiihren! 

Beispiel: DEFINTI I,J,K,X-Z 


DEFSNG 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Befehl 

DEFSNG {Buchstabe | Buchstabe-Buchstabe}[[,{Buchstabe | Buchstabe- 
Buchstabe}]] 

Es konnen einzellne Buchstaben Oder Buchstabenbereiche (nach 
Alphabet) genaimt werden. Die Buchstaben miissen grofi geschrieben 
werden. Nachfolgend im Programmtext erscheinende Variablen ohne 
Postfix, die mit einem solchen Buchstaben beginnen werden 
automatisch als einfach-genaue-Fliefikomma- Variablen interpretiert. 
Das nachtragliche Einfiigen des Befehls verandert schon bestehende 
Variablenstrukturen nicht. Er andert lediglich das Anzeigeverhalten des 
Editors. 

DEFSNG ”A-Z” 


DEFSTR 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Befehl 

DEFSTR {Buchstabe | Buchstabe-Buchstabe}[[, {Buchstabe | Buchstabe- 
Buchstabe}]] 

Es konnen einzellne Buchstaben oder Buchstabenbereiche (nach 
Alphabet) genannt werden. Die Buchstaben miissen grofi geschrieben 
werden, Nachfolgend im Programmtext erscheinende Variablen ohne 
Postfix, die mit einem solchen Buchstaben beginnen werden 
automatisch als String-Variablen interpretiert. 

Das nachtragliche Einfiigen des Befehls verandert schon bestehende 
Variablenstrukturen nicht. Er andert lediglich das Anzeigeverhalten des 
Editors. 

DEFSTR ”T” 


DEG 

Typ: Befehl 



DEG 
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Syntax: 

Erklarung: 


Schaltet fiir trigonometrische Funktionen auf Berechnung nach 
Gradmafi um (0 bis 360). Standardeinstellung ist Bogenmafl (0 bis 2 ), 
siehe RAD. 


WICHTIG: Wenn der Befehl zusammen mit dem COMPILER 4.0 verwendet wird und die 
Compilate den Coprozessor auf ATARI TT ausnutzen, ist folgendes zu beachten: Die 
Befehle DEG und RAD wirken als Steuerworte d.h. der Rechenmodus wird ab der Stelle, 
ab der der Befehl im Programm steht umgestellt. Wann der Befehl ausgefiihrt wird, ist 
gleichgiiltig. Falls das Programm wie im Beispiel einen unverzweigten Ablauf von oben 
nach unten hat, ist die unterschiedliche Behandlung belanglos. Es ist bei Coprozessor- 
Compilaten jedoch nicht moglich, den Winkelmodus in Abhangigkeit von einer 
Bedingung zu setzeh. Hier mufi man selbst Vorkehrung fiir eine Umrechnung vorsehen. 
Beispiel: DEG: PRINT SIN (45) 

RAD: PRINT SIN (45) 


.70710678 

.85090552 


DET 

Typ: Funktion 

Syntax: DET(<Matrixname>([<num.Ausdruck>],[<num.Ausdruck>)) 

Erklarung: Diese Funktion berechnet die Determinate einer quadratischen 

Matrix. Die Matrix mufi in Form eines zweidimensionalen 
Fliefikommafeldes vorliegen. Die Grofie der Matrix mufi fiir beide 
Dimensionen angegeben werden. Wenn die Grofienangabe fehlt, 
werden automatisch die be’ ’ T Mmensonieren verwendeten 
Maximalwerte verwendet. 

1., 2. , 5 . ,4. ,5. ,6. ,7- ,8. ,9. 

1 DIN Matrix! (2,2) 

2 FOR 1=0 TO 2 

5 FOR J=0 TO 2 

4 READ Matrix! (I, J) 

5 NEXT J 

6 NEXT I 

7 PRINT DET ( Matrix !(,)) 


0 
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DIM 

Typ: Befehl 

Syntax: DIM <Feldname>(<num.Ausdruck>[[,<num. 

Ausdruck]])[[,<Variable>(<num.Ausdruck>[[,<num. Ausdruck]])]] 

Erklarung: Definiert eine Oder mehrere Variablen Felder und gibt durch die 

numerischen Ausdriicke deren maximale Feldgrofle an. 

Eindimensionale Felder (nur ein numerischer Ausdruck) konnen 
beliebig groB sein. Fur Mehrdimensionalige Felder gilt: erste 
Dimension kleiner 65536, alle weiteren durchmultipliziert kleiner 65536. 

Die Benutzung von Feldvariablen ist erst nach einer DIM-Anweisung 
moglich, Ausnahme: Eindimensionale Felder bis elf Elemente (0 bis 10) 
miissen im Interpreter nicht dimensioniert werden. Allein aus Grunden 
der Kompatibilitat zum Compiler sollten jedoch stets alle Feldvariablen 
dimensioniert werden. 

Nach einer Definition konnen FeldgroBen nur noch mit folgenden 
Einschrankungen verandert werden: 

Wird eine andere als die letzte Dimension eines Feldes verandert, 
verschieben sich die Feldinhalte. Wird das Feld um eine weitere 
Dimension erweitert, gehen die Feldinhalte verloren. 

Die Variablentypen Flag (Postfix %F) und Byte (Postfix %B) konnen nur 
als Feld verwendet werden. 

Beispiel: DIM A%(10) ,FlagS%F(100) , Wert n ( 50 , 50 ) 


DMA_SOUND 

Typ: Reserviert fiir zukunftige Anwendungen. 

Dieses Wort bitte nicht verwenden!! 


DRAW 

Typ: Befehl 

Syntax: DRAW [TO] <num.Ausdruck>,<num.Ausdruck>[[ TO <num. 

Ausdruck> , <num. Ausdruck> ] ] 

DRAW [TO] <X>,<Y>[[ TO <Xn>,<Yn>]] 

Erklarung: Zeichnet an der durch X und Y gegebenen {Coordinate einen Punkt. 

Durch Angabe von TO vor dieser Koordinate wird eine Linie vom letzten 
gezeichneten Punkt aus gezeichnet. 
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Beispiel: 


DUMP 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


EDIT 

Typ: 

Syntax: 

Erklarung: 


Optional konnen weitere durch TO abgetrennte Koordinaten angegeben 
werden, die dann durch Linien verbunden werden. 

Farbe, Linienstil und Linienbreite konnen iiber LINE COLOR, LINE 
STYLE, bzw. LINE WIDTH bestimmt werden. 

1st mittels CLIP ein Bildfenster definiert, wird aufierhalb dieses 
Bereiches nicht gezeichnet. 

Siehe auch POLYGON und PPOLYGON. 

0 DRAW 100,100 

1 DRAW 150,100 

2 DRAW TO 100,150 

5 DRAW 70,70 TO 20,50 TO 60,40 


Befehl 

DUMP [{Buchstabe | Buchstabe-Buchstabe}[[,{Buchstabe | Buchstabe 
Buchstabe}]]] 

Alle Variablen werden mit Inhalt auf dem Bildschirm ausgegeben. Bei 
Feldernwird jedoch nur der Dimensionsbereich angegeben. 

Optional konnen einzelne Buchstaben Oder Buchstabenbereiche (nach 
Alphabet) genannt werden. Dann werden nur solche Variablen 
aufgelistet, die mit einem der genannten Buchstaben beginnen. 

0 CopS=”0MIKR0N . Software ” : Betrag#=229 . 45# 

1 DUMP B,C 

COPS = ’’OMIKRON . Software ” 

BETRAG#= 229.45 


Befehl 

EDIT [<num.Ausdruck>] 

Springt vom Direkt-Modus in den Editor. Mit dem numerischen 
Ausdruck kann die Zeilennummer angegeben werden, an der der 
Cursor positioniert wird. Wird 0 oder - 1 angegeben, so steht der Cursor 
in der ersten, bzw. letzten Programmzeile. 

Der Editor kehrt mit Anklicken des Eintrags DIRECT MODE im FILE- 
Menii in den Direkt-Modus zuriick. 

Wichtige Anwendung: Mit EDIT ERL gelangt man direkt 
in die fehierhafte Programmzeile 
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ELLIPSE 

Typ: Befehl 

Syntax: ELLIPSE <num.Ausdruck>,<num.Ausdruck>,<num.Ausdruck>,<num. 

Ausdruck>[,<num.Ausdruck>,<mim.Ausdruck>] 

ELLIPSE <X>,<Y>,<X-Radius>,<Y- Radius>[,<Startwinkel>,<Endwinkel>] 
Erklarung: Zeichnet um den Mittelpunkt X,Y eine Ellipse mit den angegebenen 

Radien. Optional konnen Start- und Endwinkel in Zehntel-Graden 
angegeben werden. Hierbei ist Winkel=0 rechts rom Mittelpunkt, 
Winkel=900 oberhalb des Mittelpunkts etc. 

Farbe, Linienstil und Linienbreite konnen iiber LINE COLOR, LINE 
STYLE, bzw. LINE WIDTH bestimmt werden. 

Ist mittels CLIP ein Bildfenster definiert, wird aufierhalb dieses 
Bereiches nicht gezeichnet. 

Siehe auch CIRCLE, PELLIPSE, PCIRCLE. 


ELSE 

Typ: Befehl 

Syntax: ELSE 

Erklarung: Steht nach der IF-Bedingung und vor weiteren IF-Bedingungen, 

weiteren ELSE's Oder ENDIF. Was nach ELSE steht, wird genau dann 
ausgefiihrt, wenn die letzte IF- Bedingung NICHT erfiillt, also FALSE ist. 
Siehe auch IF. 

Beispiel: 0 IF 0=1 THEN 

1 PRINT ”0 ist gleich 1” 

2 PRINT ”Das Un-fragt Hamlets Frage nach dem Sein!” 

3 ELSE 

4 PRINT ”0 ist ungleich 1” 

5 PRINT ”Wir haben nochmal Gluck gehabt!” 

6 ENDIF 


END 

Typ: Befehl 

Syntax: END 

Erklarung: Beendet den Programmablauf und schliefit alle Dateien. 



79 


ENDIF 

Typ: Befehl 

Syntax: ENDIF 

Erklarang: ENDIF beendet den abhangigen Programmzweig einer mehrzeihgen 

IF-Anweisung.(siehe IF) 

Beispiel: IF Count ’Maximum THEN 

Count=0 
Max_Count+=1 
ENDIF 


END_FN 

Typ: Befehl 

Syntax: END_FN 

Erklarang: Schlieflt eine Funktionsdefinition ab und sollte daher am Ende jeder 

Funktionsdefinition stehen. Mit END_FN kann kein Funktionswert 

zuriickgeliefert werden. Riickgabewerte miissen mit dem Befehl 
RETURN realisiert werden. Im Unterschied zu END__FN kann RETURN 
innerhalb einer Funktion mehrmals verwendet werden (z.B. IF X THEN 
RETURN 5 ELSE RETURN 3). Allerdings konnen mit [CONTROL][D] nur 
Funktionen eingeklappt werden, die mit END_FN abgeschlossen sind. 

Wenn Sie auf die pratische Moglichkeit des Einklappens verzichten 
mochten, konnen Sie Ihre Funktion auch mit RETURN abschlieBen. 


END_PROC 

Typ: Befehl 

Syntax: END_PROC 

Erklarang: Beendet eine Prozedur und entspricht etwa dem Befehl RETURN, darf 

jedoch nur genau einmal (und zwar am Ende der Prozedur) stehen. Nur 

eine mit END_PROC abgeschlossene Prozedur kann mit 
[CONTROL][D] eingeklappt werden. 


EOF 


Typ: 

Syntax: 


Funktion 

EOF(<num.Ausdruck>) oder EOF(<Dateinummer>) 
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Erklaning: 


Beispiel: 


EQV 

Typ: 

Syntax: 

Erklaning: 

Beispiel: 


ERL 

Typ: 

Syntax: 

Erklaning: 


ERR 

Typ: 

Syntax: 

Erklaning: 


Ergibt -1 (=wahr), wenn das Ende der Datei erreicht ist, sonst 0. Die 
Datei mufl zuvor mit OPEN geoffnet worden sein. 

Achtung: Bei sequentiellen Dateien mufi EOF VOfi dem Lesen abgefragt 
werden, bei relativen Dateien NACH dem GET! 

0 OPEN ”I”,1 , ”C:\DESKI0P.INF” 

1 WHILE NOT EOF ( 1 ) 

2 InS= INPUTS (1,1) 

5 PRINT In$; 

4 WEND 

5 CLOSE 1 

Gibt den Inhalt von DESKTOP. INF ans. 


Operator 

<num.Ausdruck> EQV <num.Ausdruck> 

Verkniipft die beiden Ausdriicke bitweise Equivalent. 

0 PRINT BINS( (961010 EQV %1 100 ) +%10000) 

1001 


Funktion 

ERL 

Gibt nach Verzweigen durch ON ERROR GOTO Oder ON TRON GOSUB 
die Nummer der Zeile zuriick, in der der Fehler auftrat, bzw. die zuletzt 
bearbeitet wurde. 


Funktion 

ERR 

Gibt nach Verzweigen durch ON ERROR GOTO die Fehler-Nummer an, 
nach Verzweigen durch ON TRON GOSUB die Nummer des gerade 
bearbeiteten Tokens. 
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ERRS 

Typ: 

Funktion 

Syntax: 

ERR$ 

Erklarnng: 

Ergibt nach Verzweigen durch ON ERROR GOTO den Fehler- 
Meldungs-Text, nach Verzweigen durch ON TRON GOSUB den gerade 
bearbeiteten Befehl. 

ERROR 

Typ: 

Befehl 

Syntax: 

ERROR(<num Ausdruck>) 
ERROR( <Fehlernummer> ) 

Erklarung: 

Erzeugt den durch den numerischen Ausdruck angegebenen Fehler. 
Siehe auch Fehlerliste. 

Beispiel: 

ERROR 32 

EXEC 

Typ: 

Befehl 

Syntax: 

EXEC <Stringausdruck>[,<Stringausdruck>[,<Stringausdruck>]] 
EXEC <Dateinarne>[,<Kommando>[,<Environment>]] 

Erklarung: 

Startet ein beliebiges ausfiihrbares Programm (".PRG", " APP", " TTP" ...). 
Optional kann auch eine Kommando Zeile und ein Environment 
iibergeben werden. Beim Kommando-String ist zu beachten, dafi das 
erste Zeichen die Lange des restliche Kommando-Strings enthalt und 
dafi er nicht langer als 127 Zeichen wird. 

Beispiel: 

0 Cmd8=”C : \IEST .BAS” 

1 Cmd®= CHR8( lEN(Cmd$) )+CmdS 

2 EXEC ”C : NC0MPI1ER . PRG” , CmdS 

EXIT 

Typ: 

Befehl 

Syntax: 

EXIT {[<num Ausdruck>] |TO <Marke> 
EXIT {[Zahl der Strukturen>] | TO vMarke> 
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Erklarung: 


Beispiel: 


EXP 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


FACT 

Typ: 

Syntax: 

Erklarung: 


Mit EXIT kann eine Struktur - also eine Schleife, ein Unterprogramm 
Oder ein SELECT-CASE - verlassen werden. Die Programmausfiihrung 
wird direkt hinter dem Strukturende fortgesetzt. Auf diese Weise 
konnen also zusatzliche Abbruchbedingung in eine Schleife eingebaut 
Oder eine Prozedur vorzeitig verlassen werden. Die Variante mit Anzahl 
zum Verlassen mehrerer Strukturen ist inkompatibel zum Compiler und 
sollte deshalb vermieden werden. Wird hinter TO noch ein Sprungziel 
angegeben, so wird nicht direkt am Strukturende weiter gemacht, 
sondern erst an der angegebenen Marke. Trotzdem darf auch hier nicht 
mehr als eine Struktur verlassen werden. Das Sprungziel mufi also in 
der nachsthoheren Ebene liegen. Mit EXIT TO z.B. zwei Schleifen auf 
einmal zu verlassen ist verboten. Ebenso diirfen Prozeduren und 
mehrzeilige Funktionen nicht mit EXIT TO verlassen werden. 

0 REPEAT 

1 INPUT ’’Geben Sie einen Wert ein 

(nur RETURN -> ENDE): ”;W$ 

2 IF W$=”” THEN EXIT 

3 Summe!+=VA1(W8) 

4 UNTIL 0 

5 PRINT Summe! 


Funktion 

EXP(<num.Ausdruck>) 

Ergibt den Wert der Potenz von e (Eulersche Zahl) und dem 
numerischen Ausdruck. Die Umkehrfunktion ist LN. 

0 PRINT EXP(1.) 

1 PRINT "Die Eulersche Zahl:"; EXP(ltf) 

27182818 

Die Eulersche Zahl: 2.71828182845904S2 


Funktion 

FACT(<num.Ausdruck>) 

Berechnet die Fakultat des ganzzahlig-abgerundeten numerischen 
Ausdrucks. Der Definitionsbereich reicht von 0 - 1754; andere Werte 
erzeugen eine Fehlermeldung ("Overflow" bzw. "Illegal function call"). 




Beispiel: 


FIELD 

Typ: 

Syntax: 


Erklarung: 


Beispiel: 
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0 PRINT FACT (1000) 

1 PRINT FACT (10000) 

4.0238726E+2567 

? Overflow in 1 


Befehl 

FIELD [#]<num.Ausdruck>,<num.Ausdruck> [AS <String -Variable'] 
[[,<num.Ausdruck> [AS <String-Variable>]]] 

FIELD [#]<Dateinummer>,<Satzlange> [AS <Puffervariable>] 
[[,<Satzlange> [AS <Puffervariable>]]] 

Definiert fiir die durch die Dateinummer gegebene Random-Access- 
Datei die Datenstruktur. Die Datei mufi zuvor mit OPEN "R" geoffnet 
worden sein, die Datensatzlange mufi mindestens den summierten 
Satzlangen der FIELD-Anweisung entsprechen, darf also auch grofier 
sein. 1st die Datenstruktur zu umfangreich, um in einer Zeile definiert zu 
werden, so kann sie in zwei Zeilen aufgeteilt werden. Man verwendet 
hierzu eine zweite FIELD-Anweisung, wobei die erste Anzahl ohne 
Puffervariable die Summe aller bereits aufgezahlten reprasentiert 

Nach einem Lese-Vorgang durch GET enthalten die Puffervariable den 
gelesenen Dateisatz; bei einem Schreib-Vorgang mit PUT werden die 
Inhalte der Puffervariablen als Datensatz gespeichert. 

Es ist darauf zu achten, dafi die Lange der Puffervariable zu keiner Zeit 
verandert wird. Hierzu konnen die Feldinhalte mit LSET Oder RSET 
iibergeben werden. Weiterhin sind als Puffervariable nur einfach 
Strings zugelassen - Feldelemente sind verboten. 

Im Hinblick auf den Compiler gilt folgendes: Puffervariable fiir FIELD- 
Anweisungen diirfen niemals lokal verwendet werden (LOCAL), 
solange die FIELD-Anweisung noch aktiv ist. Sie sollten wirklich 
ausschliefilich der Nutzung als Dateipuffer vorbehalten bleiben. 

0 OPEN ”F",1 ,”C:\*.*”,0 

1 FIELD 1,21,1 AS AbtS , 2 AS Tim8,2 AS Dat#,4 AS Len# , 14 

AS Name! 


2 WHILE 1 

3 GET 1,0: IF E0F(1) THEN EXIT 

4 PRINT LEFTS (Name#, INSTR(Name$ , CHRS(0) ) ) ; TAB (15); 

CVIL(Len$) 

5 WEND 

6 CLOSE 1 
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FILES 

Typ: Befehl 

Syntax: FILES [ <Stringausdruck> ] 

FILES [<Dateiname>] 

Erklarang: Gibt ein Inhaltsverzeichnis des in Dateiname genannten Pfades. 

Jokerzeichen innerhalb des Dateinames sind zugelassen. 


FILESELECT 


Typ: 

Syntax: 


Erklarang: 


Beispiel: 


Befehl 

FILESELECT (<Stringvariable>,<StringvariabIe>,<num. Variable*) 
FILESELECT (<Pfad&Auswahl> ,<Dateiname> ,<OK>) 

Ruft eine Dateiauswahl-Box auf. Es mufi unbedingt ein gttltiger Pfad 
angegeben werden, da sonst ein Systemabsturz folgt. Der Dateiname 
wird als Vorgabe angezeigt. 

Vor Ausfiihrung des Befehls sollte unbedingt die Maus mit MOUSEON 
eingeschaltet werden. 

Pfad und Dateiname enthalten nach Ausfiihrung die gewahlte Datei. OK 
ist ungleich 0 (=wahr), wenn die Dateiauswahl-Box durch Doppelklick 
auf eine Datei oder mit OK verlassen wurde. Bei einem Fehler Oder 
Abbruch ist OK gleich 0. 

GEMD0S(Drive,H9) ’ Aktuelles Laufwerk ermitteln 
Path$=” ” *64 : Adr=LPEEK ( SEGPTR+ 28 ) +LPEEK ( VARPIR ( Path! ) ) 
GEMDOS (,$47, HIGH (Adr), LOW (Adr),0) ’Aktueller Pfadname 
Path® =LEFT$ ( Path! , INSTR ( Pa thl +CHRI ( 0 ) , CHRt ( 0 ) ) ■ - 1 ) 
Path$=CHR$(65+Drive)+”: ”+Patht+”\*.BAS" 

MOUSEON : FILESELECT ( Path! , Name I , Okay ) : M0USE0PF 

Dateiname$= LEFT t(Patht,LEN(Path$)- 

INSTR (MIRRORI ( Path! ) +"\ ” , ) +Namei 

IF OKay AND DateinameS< > THEN OPEN "I”,1 .Dateiname 


FILL 

Typ: Befehl 

Syntax: FILL<X>,<Y>,<Umrifl-Farbe> 

Erklarang: Fiillt eine Flache ab der durch X und Y gegebenen Koordinate. Als 

Flachenrand gilt jeder Punkt, der die Umnfl-Farbe hat. Gibt man 
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Umrifi Farbe--1 an, so gilt jeder Punkt als Flachenrand, der eine 
andere Far be hat, als der an der X,Y-Koordinate. 

Gefiillt wird mit der durch FILL COLOR definierten Farbe und dem 
durch FILL STYLE definierten Fiillmuster. 

Die Befehle PBOX, PROX, PCIRCLE, PELLIPSE und PPOLYGON ftillen 
eine Flache schneller als der entsprechende Zeichenbefehl mit 
anschlieBendem FILL. 

1st mittels CLIP ein Bildfenster definiert, wird aufierhalb dieses 
Bereiches nicht gefiillt. 


FILL COLOR 

Typ: Befehl 

Syntax: FILL COLOR- <num.Ausdruck> 

Erklarung: Der numerische Wert gibt die bei Fiill-Befehlen verwendtete Farbe an. 

Je nach Auflosung ist ein Wert zwischen 0 und 1, 0 und 3, bzw 0 und IS 

moglich. 

Siehe auch PALETTE. 


FILL PATTERN 

Typ: Befehl 

Syntax: FILL PATTERN = <num. Variable> [[,<num. Variable>]] 

FILL PATTERN = <Integer-Wort-Feldvariable>(<Feldoffset>) 
[[,<Integer-Wort-FeldvariabIe>(<Feldoffset>)]] 

Erklarung: Durch FILL PATTERN = wird das benutzter-definierbare Fiillmuster 

festgelegt. Die Bitkombinationen fiir das Fiillmuster befinden sich in 
den ersten 16 Worten der Integer-Wort-Feldes ab dem angegebenen 
Feldoffset. Ist mehr als eine Farbebene vorhanden, so ist fiir jede 
Farbebene ein weiteres Feld anzugeben. Benutzt wird das so definierte 
Fiillmuster mit FILL STYLE =4,1. 

Beispiel: 0 DATA 960000000000000000 ’ = 

1 DATA 960000001 11 1000000 ’ = **** 

2 DATA 9600001 100001 10000 ’ = ** ** 

3 DATA 960001000000001000 ’ = — * * — 

4 DATA 96001 00000000001 00 ’.= — * 

3 DATA 96001 00000000001 00 ’ = — * *— 

6 DATA 960100110000110010 ’ = -*--** **--*- 

7 DATA 960100000100000010 ’ = 


-* 




* - 
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8 DATA %01 000001 00000010 ’ = -* * *- 

9 DATA 9601 000001 10000010 ’ = -* ** *- 

10 DATA 9600 100000000001 00 ’ = — * 

11 DATA %00 10001111000100 ’ = —*—***» — 

12 DATA %0001000000001000 ’ = — * *— 

15 DATA %00001 100001 10000 ’ = ** ** 

14- DATA %0000001 11 1000000 ’ = **** 

15 DIM Patt%(22) 

16 FOR 1=0 to 15: READ Patt%(I+7): NEXT I 

17 FILL PATTERN = Patt%(7)’ Index gibt Start der Daten an 

18 FILL COLOR = 1: FILL STYLE = 4,0: MODE = 1 

19 PBOX 50,50,100,100 


FILL STYLE 

Typ: Befehl 

Syntax: FILL STYLE=<num.Ausdruck>,<num.Ausdruck> 

FILL STYLE = <Fiillart> , <Fiillstil> 

Erklarung: Wahlt den bei Full Befehlen verwendeten Fiillstil. Mit Fiillart kann 

gewahlt werden: 

0: Nicht fiillen 
1 : Komplett fiillen 
2: Punktmuster 
3: Strichmuster 

4: Dutch FILL PATTERN festgelegtes Muster 

Fiillstil mufi immer angegeben werden, hat aber nur bei Fiillart 2 und 3 
eine Bedeutung. Siehe auch Fiillstil-Tabelle. 


FIX 

Typ: Befehl 

Syntax: FIX(<num.Ausdruck>) 

Erklarung: Rundet den numerischen Wert auf eine ganze Zahl ab. Im Gegensatz zu 

INT wird auch im negativen Bereich "abgerundet". 

Das Gegenstiick zu FIX ist FRAC. 

Beispiel: 0 PRINT FIX( PI ) 

1 PRINT FIX (-12.5 ) 1 INT (-12. 5) 
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FN 

Typ: 

Syntax: 

Erklarang: 


Beispiel: 


FOR .. 

Typ: 

Syntax: 


Erklarang: 


3 

-12 -13 


Funktion 

FN <Variable>[(<Ausdruck>[[,<Ausdruck>]])] 

FN <Funktions-Variable>[(<Parameter>[[, Parameter]])] 

Ruft eine durch DEF FN definierte Funktion auf und weist der 
Funktions-Variable den Funktionswert zu. 

Die in der Definition genannten Parameter miissen iibergeben werden. 

0 PRINT FN Dreifach{3) 

1 PRINT FN Primzahl$(12) 

2 END 

3 DEF FN Dreifach(A)=3*A 

4 DEF FN Primzahl$(A) 

3 LOCAL N,P8=’’Primzahl” 

6 FOR N=2 TO SQR(A) 

7 IF A MOD N=0 THEN PS= ’’keine Primzahl” 

8 NEXT N 

9 RETURN P* 

9 

keine Primzahl 


. TO ...[STEP] ... NEXT 

Befehl 

FOR <num. Variable> = <num.Ausdruck> TO <num.Ausdruck> [STEP 
<num.Ausdruck>: <Befehle> NEXT [<num. Variable>][[,<num. 

Variable>]] 

FOR <Schleifenvariable> = <Startwert> TO <Endwert> [STEP 
<Schrittweite>: <Schleifeninhalt> : NEXT [<SchIeifenvariable>] 

Die wohl bekannteste Programmschleife. Der Schleifenvariable wird zu 
Beginn der Startwert zugewiesen, welcher sodann bei jedem neuen 
Durchlauf um die Schrittweite erhoht Oder erniedrigt wird. Fehlt die 
Schrittweite wird sie automatisch auf eins festgelegt. 

Mogliche Schleifenvariable sind: Alle einfachen Variablentypen, jedoch 
keine Feldelemente. Zu beachten ist ferner: Wenn die Schleifenvariable 
abwarts gezahlt werden soil, ist unbedingt eine negative Schrittweite 
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anzugeben (z.B. -1). Wenn die Schleifenbedingung gleich zu Anfang 
nicht erfiillt ist (z.B. Startwert ist groBer als Endwert bei positiver 
Schrittweite), dann wird die Schleife iiberhaupt nicht durchlaufen. Die 
FOR- NEXT -Schleife ist also eine abwesende Schleife. 

Die Schleife wird geschlossen durch die NEXT-Anweisung wobei die 
Schleifenvariable weggelassen werden kairn. Die NEXT Anweisung 
bezieht sich dann immer auf die letzte FOR -Anweisung. 

Um die Schleife vorzeitig zu verlassen verwenden sie EXIT. 

Beispiel: 0 DIM A (10) 

1 FOR 1=0 TO 10 

2 A ( I ) =RND ( 20 ) : PRINT A(I) 

3 NEXT I 

4 Maximum=0 

5 FOR 1=0 TO 10: Maximum=MAX(Maximum,A(I) ) : NEXT I 

6 PRINT ’’Die groBte Zahl ist: ”;Maximum 

Die groBte Zahl ist: 


FORM ALERT 


Typ: 

Syntax: 


Exklarung: 


Befehl 

FORM_ALERT(<num.Ausdruck>,<Stringausdruck>[,<Variable>]) 
FORM_ ALERT (<Default>,<Warnmeldung>[,<Riickgabe>]) 

Stellt eine Warn-Box dar. Default gibt an, welcher der in Warnmeldung 
genannten Knopfe durch RETURN ausgelost werden kann. Soli dies fur 
keinen gelten, so ist Default gleich 0 zu iibergeben. 

Die Warnmeldung ist folgendermafien aufgebaut: 

[Icon][Zeile 1 1 Zeile 2 1 Zeile 3 1 Zeile 4 1 Zeile S | ][Knopfl | Knopf2 1 Knopf 3] 


Icon ist eine Zahl zwischen 0 und 3: 

0: kein Icon 
1: Ausrufezeichen 
2: Fragezeichen 
3: Stop-Symbol 

andere Werte konnen zu Abstiirzen fiihren. 

Die Zeilen diirfen jeweils hochstens 30 Zeichen lang sein. 

Die Knopfgrofie orientiert sich am langsten Knopftext. (maximal 20 
Zeichen) 
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Beispiel: 


FRAC 

Typ: 

Syntax: 

Erklarong: 

Beispiel: 


FRE 

Typ: 

Syntax: 

Erklarang: 

Beispiel: 


FRE 

Typ: 

Syntax: 


Nach Ausfuhrung enthalt Riickgabe die Nummer des gewahlten 
Knopfes. 

0 Date il= ”A : \IESI . TXT” 

1 MOUSEON 

2 FORM_ALERT (1 , ”[2] [Die Datei|”+Datei$+”|vird 

unwiderruflich geloscht. ][OK|Abbruch]’’,Datei_Ex) 

5 MOUSEOFF 

4 IF Datei Ex=1 THEN KIIL Ad 


Funktion 

FRAC(<num.Ausdruck>) 

Ergibt den Nachkommaanteil des numerischen Ausdrucks. Das 
Vorzeichen bleibt erhalten. 

Das Gegenstuck zu FRAC ist FIX. 

PRINT FRAC( PI ) , FRAC ( 5 • 36 ) , FRAC(-5-36) 

.14159265558979324 .36 -.36 


Befehl 

FRE <num.Ausdruck> 

FRE <Speicheradresse> 

Gibt einen durch MEMORY reservierten Speicherbereich wieder frei. 
Als Speicheradresse ist die Adresse anzugeben, die beim Aufruf von 
MEMORY zuriickgegeben wurde. 

0 Puf f er=MEM0RY ( 1 024 ) 

1 PRINT ’’Puffer angelegt bei: ” ;HEXS(Puffer) 

2 FRE Puffer 


Funktion 

FRE({<num.Ausdruck> | <Stringausdruck>}) 
FRE({<Dummy> | <Laufwerk>() 
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Erklarang: Wird ein numerischer Dummy angegeben, so ergibt die Funktion, den 

fiir den Benutzer freien Speicherbereich, nachdem der Variablen- 
speicher aufgeraumt wurde (garbage collection). 

Der Wert des Dummys ist dabei ohne Belang. 

Wird ein Leerstring (="") ubergeben, so ergibt die Funktion den fiir den 
Benutzer freien Speicherbereich, ohne dafi zuvor eine garbage 
collection durchgefiihrt wird. 

Sonst wird der Stringausdruck als Laufwerksbezeichner interpretiert, 
und der auf diesem Laufwerk freie Speicherbereich ermittelt. 

Beispiel: PRINT FRE ( 0 ) , FRE( ”” ) , FRE(”C:”), FRE(”C:\AUT0\”) 


FSEL_INPUT 

Typ: Befehl 

Syntax: siehe FILESELECT 

Erklarung: siehe FILESELECT 


GEMDOS 

Typ: Befehl 

Syntax: GEMDOS[(][<Variable>],<num.Ausdruck>[[,[L 

]<num.Ausdruck>]][)]GEMDOS[(][<Ruckgabe-Variable>], 

<Funktionsnummer>[[,[L]<Parameter>]][)] 

Erklarang: Ruft eine Funktion des GEMDOS (ein Teil des Betriebssystems) auf. 

Wenn vor den Parametern ein "L " gestellt ist, so wird der Parameter als 
LONG ubergeben, ansonsten immer als WORD. 

Beispiel: 0 PRINT FN Get_Path$ 

1 END 

2 DEF FN Get_PathS’ Standard-Pfad ermitteln 
5 LOCAL PathS .Drive ,Adr 

4 GEMDOS (Drive, $19) ’ Standard-Laufwerk 

5 PathS- CHRS(0)*128 

6 Adr= LPEEK ( VARPIR(PathS) )+ LPEEK( SEGPTR +28) 

7 GEMDOS ( .S47.L Adr,Drive+1) 

8 PathS = CHRS(Drive+65 )+”:”+ LEFTS (PathS, INSTR(Pathl, 

CHRl(0))-1)+”\” 


9 RETURN PathS 

10 END FN 
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GET 

Typ: Befehl 

Syntax: GET <num.Ausdruck>[,{<num.Ausdruck> | <Str.Var)],<num.Ausdruck> 

1: GET <Dateinummer>,<Satznummer> 

2: GET <Dateinummer>,<Speicheradresse>,<AnzahI> 

3: GET <Dateinummer> , <String- Variable!*, <Anzahl> 

Erklarung: Nach Syntax 1 wird ein Datensatz aus der durch die Dateinumrtier 

gegebenen Datei gelesen und den in FIELD genannten Puffervariablen 
zugewiesen. Die Datei mufi zuvor mittels OPEN "R” geoffnet worden 
sein. 1st der Datensatz nicht vorhanden enthalten die Puffervariablen 
Leerzeichen, EOF gibt den Wert -1 (-wahr) zuriick. 

Nach Syntax 2 und 3 wird aus der durch die Dateinummer gegebenen 
Datei die gegebene Anzahl Zeichen gelesen und ab der 
Speicheradresse bzw. in der String-Variable abgelegt. Die Datei mufi 
zuvor mit OPEN "U" geoffnet worden sein. Gelesen wird ab der aktuellen 
Dateiposition, die mit SEEK gesetzt werden kann. 

Beispiel: 0 OPEN ”U” , 1 , ’’BILDSCH.PIC” ' BILDSCH.PIC muB im aktuelien 

Verzeichnis vorhanden sein 

1 XBIOS Adresse,J ’ holt Bildschirm-Adresse 

2 GET I.Adresse, 52000 ’ nicht bei GroBbildschirmen 
5 CLOSE 1 


GOSUB 

Typ: Befehl 

Syntax: GOSUB <Marke> 

Erklarung: Verzweigt in das durch <Marke> defirtierte Unterprogramm. 

Vom Unterprogramms kann mittels RETURN wieder in das 

Hauptprogramm zuruckgesprungen werden. Dann wird als nachstes 
der der GOSUB-Anweisung folgende Befehl ausgefiihrt. 

Die im Unterprogramm verwendeten Variablen sind global (siehe 
LOCAL). Unter OMIKRON.Basic geschriebene Programm konnen im 
Prinzip vollstandig auf GOSUB verzichten, da ein Unterprogrammaufruf 
immer auch mittels einer Prozedur verwirklicht werden kann. Ein 
Unterprogramm per GOSUB aufzurufen ist eigentlich nicht mehr 
zeitgemafi. Aus Griinden der Kompatibilitat wurde der Befehl im 
Sprachumfang belassen. 
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GOTO 

Befehl 

GOTO <Marke> 

Verzweigt an die durch <Marke> definierte Stelle im Programm. 
ACHTUNG: Verzweigen Sie niemals in eine Struktur (Schleife Oder 
SELECT-CASE) Oder in eine Prozedur. Spriinge per GOTO sind nur in 
der gleichen Hierachie-Ebene erlaubt. Um eine Struktur vorzeitig zu 
verlassen verwenden Sie EXIT. 

Generell fiihrt die Verwendung von GOTO sehr schnell zu sehr 
uniibersichtlichen Programmen. Man sollte daher zu viele GOTOs nach 
Moglichkeit vermeiden. Die strukturierte Programmierung, wie sie von 
OMIKRON.Basic unterstiitzt wird, kommt in jedem Falle auch ganz ohne 
GOTO aus. Es ist jedoch nicht auszuschliefien, dafi in einem oder 
anderen Fall (z.B. bei nicht behebbaren Fehlern) ein GOTO einfach 
praktischer ist. 

Siehe auch RENUM. 

Zeilemiummer : GOTO 56 

Berechnung: GOTO 5*( x ~5) 

Label: GOTO Abfrage 

String: At=”52”: GOTO A$ 

BS=”Loop": GOTO B» 


HCOPY 

Typ: Befehl 

Syntax: HCOPY 

Erklarung: Ruft die Systemroutine "Hard-Copy" auf, die auch tiber Alternate Help 

erreichbar ist. Die Einstellung auf die verschiedenen Druckertypen 
erfolgt iiber das Kontrollfeld -Accessory, das dem Atari beiliegt. 

Wie in der Systemroutine kann der Ausdruck durch Alternate Help 
abgebrochen werden. 

Beispiel: HCOPY 


HCOPY TEXT 

Typ: Befehl 

Syntax: HCOPY TEXT 

Erklarung: Gibt eine Textkopie des Bilddschirms auf dem Drucker aus. 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 
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WICHTIG: Diese Funktion wird vom COMPILER ab Version 3.5 nicht 
mehr unterstiitzt (Kompatibilitatsprobleme). 

Beispiel: HCOPY TEXT 


HEIGHT 

Erklarung: siehe TEXT HEIGHT 

HELP 

Erklarung: siehe ON HELP GOSUB 


HEX$ 

Typ: Funktion 

Syntax: HEX$(<num Ausdruck>) 

Erklarung: Wandelt den numerischen Ausdruck in eine Zeichenkette um, die den 

gerundeten Wert des Ausdrucks als Hexadezimalzahl darstellt. 

Beispiel: PRINT HEX$(255) , HEXS(-255), HEXt(-l) 

PF -FP -1 


HIGH 

Typ: Funktion 

Syntax: HIGH(<num.Ausdruck>) 

Erklarung: Ermittelt die oberen 16 Bit des in Integer-Langwort gewandelten 

numerischen Ausdrucks. Gegenstiick zu dieser Funktion ist LOW. 

Beispiel: PRINT HEX$ ( HIGH ( $12546789 ) ) ,HIGH( -1 ) 


1234 


-1 
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H_CHAR 

Typ: Funktion 

Syntax: H_CHAR 

Erklarung: Ergibt die Hohe des Bildschirms in Zeichen. Der Wert entspricht den 

Informationen, die vom VDI bei Inquire Character Cells gelifert werden. 

Beispiel: (fiir Auflosung ST HOCH) 

0 PRINT W_CHAR ; ” Zeichen pro Zeile” 

1 PRINT H_CHAR ; ” Zeichen pro Spalte” 

2 PRINT W_PIXEL;” Punkte ist der Bildschirm breit” 

3 PRINT HPIXEL ; ” Punkte ist der Bildschirm hoch” 


80 Zeichen pro Zeile 

25 Zeichen pro Spalte 

640 Punkte ist der Bildschirm breit 

400 Punkte ist der Bildschirm hoch 


H_PIXEL 

Typ: Funktion 

Syntax: IIPIXEL 

Erklarung: Ergibt die Hohe des Bildschirms in Bildpunkten (Pixels). Der Wert 

entspricht den Informationen, die vom VDI bei V_Openvwk geliefert 

werden. (Siehe auch H_CHAR). 


IF ... THEN ... ELSE ... ENDIF 

Typ: Befehl 

Syntax: IF <num Ausdruck> THEN <Befehle> [ELSE <Befehle>] [ENDIF] 

IF <log. Ausdruck> THEN <abhangige Befehle (wahr) [ELSE 
<abhangige Befehle (falsch)>] [ENDIF] 

Erklarung: Die IF - THEN Anweisung erlaubt die bedingte Ausfuhrung von 

Befehlen. Die von der THEN Anweisung abhangigen Befehle werden 
nur ausgefiihrt, wenn der logische Ausdruck wahr (ungleich 0) ist. Die 
von der ELSE-Anweisung abhangigen Befehle entsprechend bei 
falschem logischen Ausdruck (gleich 0). 

Wenn alle abhangigen Befehle in eine Zeile passen, kann das ENDIF 
entfallen. Ansonsten beschliefit das ENDIF den Block der abhangigen 
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Anweisungen. Stehen sehr viele Alternative!! zur Auswahl, so ist in 
vielen Fallen die Verwendung von SELECT CASE vorteilhafter 

Wenn direkt vor oder nach dem THEN ein Befehlstrenner kommf 
(Betehlstrenner sind z.B. neue Zeile, ELSE, ENDIF, UNTIL, WEND, ' ), 
wird die IF Konstruktion mehrzeilig. 

Eine IF-Konstruktion kann an jeder Stelle mit EXIT verlassen werden. 
Beispiele: a) einfachster Fall einzeilig: 

IF <Bedingung> THEN ... 

b) einzeilig mit ELSE: 

IF ( Bedingung> THEN ... ELSE ... 

c) einfachster Fall mehrzeilig: 

IF <Bedingung> THEN 

ENDIF 

d) mehrzeilig mit ELSE: 

IF <Bedingung> THEN 

ELSE 
ENDIF 

e) natiirlich auch schachtelbar 

IF 'Bedingungl > THEN 

IF <Bedingting2> THEN 

ENDIF 

ELSE IF <Bedingung> THEN ... 

ENDIF 


IMP 

Typ: Operator 

Syntax: <num.Ausdruck> IMP <num. Ausruck> 

Erklarung: Die beiden Aussagen werden logisch implement verkniipft. Die 

Wahrheitstabelle hierzu fiihrt nur zu einer unwahren Aussage, wenn der 
erste Ausdruck wahr, er zweite aber unwahr ist. 

0 PRINT BINS ( (%1010 IMP 961 1 00 ) +%1 0000 ) 

1101 


so geht's auch: 
IF < Bedingung > 
THEN ... 

ELSE ... 

ENDIF 


Beispiel: 
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INKEY$ 

Typ: Funktion 

Syntax: INKEY$ 

Erklarung: Holt eine Eingabe vom Tastatur-Buffer ab. 1st keine Eingabe vorhanden, 

gibt die Funktion einen Leerstring. Sonst ist der String 4 Zeichen lang. 

Der ASCII-Wert des ersten Zeichens ergibt den Zustand der Shift- 
Tasten: 

Bit 0: rechtes Shift 
Bit 1: linkes Shift 
Bit 2: Control 
Bit 3: Alternate 
Bit 4: Caps Lock 

Der ASCII-Wert des zweiten Zeichens entspricht dem Scan-Code der 
gedriickten Taste (siehe auch Scan-Code-Tabelle). 

Das dritte Zeichen hat keine Bedeutung; ist immer CHR$(0). 

Das vierte Zeichen entspricht dem ASCII-Wert der Eingabe, oder ist 
CHR$(0), wenn die Eingabe keine ASCII-Wert hat (z.B. Home) 

Beispiel: 0 REPEAT 

1 REPEAT 

2 A8= INKEYS 

3 UNTIL LEN(AS) 

4 FOR N=1 TO 4 

5 PRINT ASC ( MID$(A8 ,N, 1 ) ) , 

6 NEXT 

7 IF RIGHTS (AS , 1 ) >=” ” THEN PRINT RIGHTS (AS, 1) ELSE 

PRINT 

8 UNTIL ASC( MIDS(AS,2,1))=97 'Ende mit Undo 

0 30 0 97 a 

0 48 0 98 b 

2 46 0 67 C 

2 32 0 68 D 

0 1 0 27 

0 28 0 13 

0 97 0 0 
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Beispiel: 0 REPEAT 

1 REPEAT 

2 AS=INKEYS 

5 UNTIL AS<>”” ’Bis Taste gedriickt 

4 A=CVIL(A8 ) 

5 Shift=A SHR 24: Scan=A SHR 16 AND SFF 

6 Ascii=A AND SFF 

V IF Ascii< >0 THEN PRINT ’’Zeichen ” ;CHRS(Ascii) 

8 IF Scan=$48 THEN PRINT ’’Taste Pfeil hoch” 

9 PRINT ’’Taste mit Tastennummer ”;Scan 

10 UNTIL Ascii=52 ’ Bis <Space> gedriickt wird 


INLINE 

Typ: Befehl 

Syntax: INLINE <String> 

Erklarung: fiihrt Maschinensprachebefehle aus. 

Beispiel: INLINE ”A009” 

ruft LINE A Nr. 9 auf, die Show-Mouse-Funktion. Der String enthalt 
den INLINE-Cde in hexadezimaler Form 


INPUT 

Typ: Befehl 

Syntax: INPUT [<Stringausdruck> ;[<Stringausdruck> ;...]<Variable>[,<num. 

VariableX ..] 

Erklarung: Der INPUT Befehl liest eine Oder mehrere Variablen von der Tastatur 

ein. Wenn angegeben, wird eine Eingabeaufforderung (Prompt) 
ausgegeben, ansonsten einfach ein Fragezeichen. Die Eingabe wird mit 
[RETURN] abgeschlossen. Wenn mehrere Werte in einer Zeile 
eingegeben werden sollen, miissen diese durch Kommata abgetrennt 
werden. Wenn num. Variable eingelesen werden sollen, wird alles bis 
zum ersten ungiiltigen Zahlzeichen als Wert iibernommen, der Rest wird 
ignoriert. Fiihrende Leerzeichen werden iiberlesen. Der Wert, den die 
Variable vor Ausfiihrung des INPUT-Befehls hatte, spielt keine Rolle: Es 
wird im jedem Fall ein neuer Wert zugewiesen. Wesentlich erweiterte 
Moglichkeiten bietet der INPUT USING Befehl. 



98 


Beispiel: 


0 INPUT ’’Geben Sie 5 Werte ein: ”;A,B,C 

1 PRINT A,B,C 

2 INPUT @(10,0); ’’Geben Sie Ihren Namen ein: ”;N8 
5 PRINT NS 


INPUT # 

Typ: Befehl 

Syntax: INPUT #<mim.Ausdruck>,<Variable>[[,<Variable>]] 

INPUT #<Dateinummer>,<Variable>[[,<Variable>]] 

Erklarnng: Es werden aus einer sequentiellen Datei eine Oder mehrere Variablen 

eingelesen. Wie bei INPUT konneri mehrere Variablen in einer Zeile, 
durch Komma getrennt, erscheinen. 

W1CHTIG: Mit INPUT II miissen Sie immer eine ganze Zeile der Datei 
mit einer INPUT Anweisung lesen, d.h. die INPUT Anweisung mufi 
genauso viel Variablen enthalten, wie Werte in einer Zeile stehen. Wenn 
Sie nicht wissen, wieviel Werte in einer Zeile stehen, so lesen Sie besser 
mit LINE INPUT die ganze Zeile ein und weisen die Werte erst spater an 
die eizelnen Variablen zu. 

Beispiel: 0 OPEN ”0” , 1 , ”C : \TEST .DAT” 

1 WRITE #1,1, 2, 5 

2 WRITE #1,4, 5, 6 

3 CLOSE 1 

4 ’ 

5 OPEN ”1” , 1 , "C:\TEST.DAT” 

6 WHILE NOT EOF ( 1 ) 

7 INPUT #1 , A , B , G 

8 PRINT A,B,C 

9 WEND 

10 CLOSE 1 


INPUT USING 

Typ: Befehl 

Syntax: INPUT [<Stringausdruck>;]<String-Variable> USING 

[<Stringausdruck>],[<num.Variable>],[<num.Ausdruck>], 

[ <num. Ausdruck> ] [ , <num.Variable> ] 

INPUT [<Prompt>;]<Eingabe-Variable> USING 
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Erklarung: 


[<Steuerstring>],[<Ruckgabe-Variable>],[<Lange>], 

[<Fiillzeichen>][,<Positions-Variable>J 

INPUT USING ermoglicht eine formatierte Maskeneingabe mit diverseri 
Einstellungsmoglichkeiten. Abhangig vbm Steuerstring werdeh bei der 
Eingabe nur bestimmte Zeichen zugelassen: 

- “0" Ziffern 

- "a" Buchstaben (einschl. landerspezifische Zeichen) 

- “a" Buchstaben (ohne landerspezifische Zeichen) 

- "%" Sonderzeichen (ausschl. landerspezifische Zeichen) 

- " A " Ctrl-zeichen (Eingabe mit [Control]-[A] f Control! - [Buchstabe [) 

- "+<Zeichen>" einzelnes Zeichen zulassen 

- "-<Zeichen>" einzelnes Zeichen verbieten 

Ob Sie dabei die Steuerzeichen selbst grofi oder klein schreiben, ist 
egal. 

Um also Namen eingeben zu konnen, konnte ihr Steuerstriftg so 
aussehen: "A +- +." alle Buchstaben einschl. Sonderzeichen, der 
Bindestrich und der Punkt sind zugelassen. 

Telefonnummern wtirde man mit "0 */“ eingeben konnen. 

Weiterhin besteht die Moglichkeit bestimmte Zeichen gleich bei der 
Eingabe umwandeln zu lassen: 

- “u" alles nach Grofibuchstaben wandeln 

- "1” alles nach Kleinbuchstaben wandeln 

- “c<Zeichenl><Zeichen2>" wird Zeichenl eingegeben, so wird es 
automatisch durch Zeichen2 ersetzt. Hinweis: Zeichenl mull 
natiirlich auch in der Auswahl der zugelassenen Zeichen sein. 

Um also bei einer Zahleneingabe immer sofort statt Dezimalpunkt mit 
Komma zu arbeiten wiirde ein Steuerstring "0 +.+, c.," benotigt. 
Grundsatzlich wird die Eingabe mit RETURN beendet. Sie konnen 
jedoch mit dem Steuerstring weitere Tasten oder Ereignisse bestimmen, 
die die Eingabe beenden: 

- “x<Zeichen> 11 Sobald die Taste mit demselben ASCII-Code wie 
<Zeichen> gedriickt wird, wird die Eingabe abgebrochen. 

- "s<Zeichen>" Sobald die Taste mit demselben Scancode wie der 
ASCII-Code von <Zeichen> gedriickt wird, wird die Eingabe 
abgebrochen. Dies ermoglicht z.B. die Unterscheidung zwischen 
Ziffernblock und Haupttastatur und erlaubt auch den Abbruch durch 
Tasten, die als ASCII-Code eine Null zuriickgeben, wie z.B [Cursor 
hoch], 

- "<" linke Randiiberschreitung: Die Eingabe wird abgebrochen, wenn 
der Cursor iiber den linken Rand hinaus bewegt wird. 

- ">" rechte Randiiberschreitung: Die Eingabe wird abgebrochen, 
wenn der Cursor iiber den rechten Rand hinaus bewegt wird. 

- "m" die INPUT USING darf durch sogenannte Multitasking-Befehle 
wie ON TIMER GOSUB oder ON MOUSEBUT GOSUB unterbrochen 
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werden. Normalerweise ist INPUT USING ein Befehl und kann nicht 
durch Multitasking unterbrochen werden. Wenn der Steuerstring ein 
"m" enthalt wird dies trotzdem ermoglicht. 

Hinweis: In Compilaten ist eine Unterbrechung des INPUT USING 
Befehls grundsatzlich immer moglich. Wenn die Unterbrechung 
allerdings mehr erledigen soil als nur eine Kleinigkeit sollte 
vorubergehend die INPUT USING Funktion verlassen werden. Dies wird 
mit POKE RESERVED(4),1 ausgelost. 

Der Prompt wird wie bei alien Eingabeanweisungen vor der Eingabe 
ausgegeben und kann natiirlich auch ein Positionangabe mit 
enthalten. 

Die Eingabe-Variable mufi immer von Stringtyp sein, da sie wahrend 
der Eingabe als Puffer dient. Numerische Eingaben werden nach der 
Eingabe mittels VAL umgewandelt. 

Die Riickgabe- Variable gibt Aufschlufi iiber die Abbruchursache: 


0 die Eingabe wurde mit RETURN verlassen 
- 1 linke Randiiberschreitung 
-2 rechte Randiiberschreitung 

-3 Unterbrechung durch COMPILER: RESERVED(4) 

INTERPRETER: MULTITASKING 


Positive Werte stehen frir eine andere Abbruchtaste. Sie wird durch 
einen vier Byte langen Wert gekennzeichnet, der - ahnlich wie bei 
INKEY$ die Shift(b)its, den (S)cancode tmd den (A)SCII-Code enthalt: 
$BB SS 00 AA (hexadezimale Darstellung) 

Durch die Angabe einer Lange kann die Eingabe auf eine bestimmte 
Zeichenzahl begrenzt werden. Die Lange sollte immer mit angegeben 
werden, da eine zu lange Eingabezeile (mehr Spalten als darstellbar) 
nicht vernupftig funktioniert. 

Der ASCII-Code des Fiillzeichens bestimmt das Zeichen, mit dem die 
Eingabezeile hinterlegt wird, um das Eingabefeld anzudeuten. Wird 
nichts angegeben, so ist das "_"-Zeichen voreingestellt. Denkbar ware 
z.B. 42 ("*“) fiir Zahleneingaben bei Schecks Oder 32 (Leerzeichen), 
wenn gar nichts hinterlegt werden soil. 

Die Positions -Variable schliefilich bestimmt die Position, die der Cursor 
zu Beginn der Eingabe einnimmt. Sie liefert auch die zuletzt 
eingenomme Cursor-Position zuriick. Man kann also z.B. den Cursor 
gezielt an die Fehlerstelle bewegen, wenn im Fehlerfall die Eingabe 
wiederholt werden mufi. Es ware auch denkbar, den Cursor immer 
wieder an den Anfang der Eingabe zu stellen, um so schneller 
Korrekturen vornehmen zu kdnnen. 
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Beispiel: 


WICHT1G: Die Eingabe-Variable wild im Unterschied zu INPUT nicht 
in jedem Fall zuerst geloscht, sondern erscheint als Vorgabe in der 
Eingabezeile. Damit konnen Sie dem Anwender bereits sinnvolle 
Eingaben vorschlagen z.B. das aktuelle Datum. Es gentigt dann ein 
einfaches RETURN, um die Eingabe zu iibernehmen. Wenn mehrfach 
dieselben Oder ahnliche Eingaben verlangt werden, kann der alte 
Wert einfach stehen bleiben oder geringfugig modifiziert 
iibernommen werden. 

Hinweis: Wenn warend der INPUT USING Anweisung Control-C 
gedriickt wird, wird erst nach verlassen der Eingabe das Programm 
abgebrochen. Nach Beendigung der Eingabe mit INPUT USING wird 
kein Zeilenvorschub ausgegeben. Soil also die nachste Ausgabe in 
einer neuen Zeile erfolgen, so muli zuvor ein Zeilenvorschub 
ausgegeben werden. 

0 Eingabe 

1 END 

2 DEF PROC Eingabe 

3 CIS 

4 PRINT @(5,5) ; ’’Name 

5 PRINT @(6,5); ’’StraBe 

6 PRINT @(8,5) ;”PlZ/0rt 

7 PRINT @(10,5);”Telefon 

8 PRINT @( 13,5) ; ’’Angaben in Ordnung (J/N) ?”; 

9 Exit$=”s”+ CHR$($48)+”s”+ CHR$(S50) 

10 Max_Feld=5 

11 REPEAT 

12 SELECT Feld 

13 CASE 0 

14 INPUT @(5,15);NameS USING ”a+-+ 

"+Exitl, Taste, 50 

15 CASE 1 

16 INPUT @(6,15);Strasse$ USING ”a0+ 

+ -”+ExitS, Taste, 30 

17 CASE 2 

18 INPUT @(8,15);Plz$ USING ”0x ”+Exit$ , Taste ,4 

19 CASE 3 

20 INPUT @(8 ,20) ;0rt$ USING ”a0+ 

+-+/”+Exit 8 , Taste , 50 

21 CASE 4 

22 INPUT @(10,15) ;Tel 8 USING ”0c-/+/+ 
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”+Exit$, Taste, 15 

25 CASE 5 

24 Jn8=” ” 

25 INPUT @(15,52) ;Jn$ USING ”u+J+N”+Exit8 , Taste , 1 

26 END_SELECT 

27 Scan= HIGH( Taste ) AND 8FF 

28 IF Scan=848 THEN Feld= MAX(Feld-1 ,0) ’ Cur Up 

29 IF Scan=850 OR Taste=0 THEN Feld= 

MIN(Feld+1 ,Max_Feld) ’ Cur Down 

50 UNTIL Jn$=”J” 

51 RETURN 


INPUTS 

Typ: Funktion 

Syntax: INPUT$(<num.Ausdruck>[,<num.Ausdruck>]) 

INPUT$(<Anzahl Zeichen>[,<Dateinummer>]) 

Erklarang: Liest eine bestimmte Anzahl Zeichen von der Console (der Tastatur) 

bzw. von der genannten Datei. 

Beispiel: 0 OPEN ”1” , 1 , ”C : \DESKT0P. INF” 

1 WHILE NOT EOF ( 1 ) 

2 PRINT INPUTS (1,1); 

5 WEND 

4 CLOSE 1 

5 ’ 

6 PRINT ’’Taste driicken ...” 

7 Dummy$= INPUTS ( 1 ) 

8 END 


INSTR 

Typ: Funktion 

Syntax: INSTR([<num.Ausdruck>.]<Stringausdruck>,<Stringausdruck>) 

INSTR([<Suchbeginn>,]<Stringausdruck>,<Zeichenfolge>) 

Erklarang: Sucht die angegebene Zeichenfolge im Stringausdruck und gibt dessen 

Position zuriick. 1st die Zeichenfolge nicht im Stringausdruck enthalten, 
so ist der Funktionswert 0. 




103 


Der ganze Stringausdruck wird vom ersten Zeichen ab durchsucht, es 
kann aber auch mit Suchbeginn eine Startposition ubergeben werden. 
Das erste Zeichen im Stringausdruck hat die Position 1. 

Beispiel: PRINT INSTR( "OMIKRON .Software” ”) 

0 Pfadt=”C : \PROJEKTE\BASIC\SOURCES\ ” 

1 P=INSTR(Pfad$,”\”) 

2 WHILE P 

3 PRINT ’’Backslash gefunden an Position:”; P 

4 P=INSTR(P,Pfadl , ”\”) 

5 WEND 

8 

Backslash gefunden an Position: 3 
Backslash gefunden an Position: 12 
Backslash gefunden an Position: 18 
Backslash gefunden an Position: 26 


INT 


Typ: 

Funktion 

Syntax: 

INT(<num.Ausdruck>) 

Erklarung: 

Liefert die nachst kleinere ganze Zahl. Dadurch werden positive Werte 
ab- und negative Werte "auf'gerundet. 


Die Funktion FIX rundet immer ab. 

Beispiel: 

PRINT INT( PI ), INT (12. 5) , INT(-12.5) 


3 12 -13 


INV 

Erklarung: siehe MAT 


IPL 


Typ: 

Syntax: 


Befehl 

IPL <num.Ausdruck> 
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Erklarang: Weist dem System den numerischen Ausdruck ts Interrupt-Priority- 

Level zu. AUe Interrupts deren Level gleich Oder kleiner ist, als der 
gegebene werden dartn ignoriert. Ein Programmabbruch durch Control 
C kann verhindert werden, indem das hochstwertige Bit (=31) gesetzt 
wird. 

Standardeinstellimg ist IPL 3. 

Beispiel: 0 IPL 3+ ( 1 SHL 51) ’verhindert Programmabbruch mit CTRL-C 

ACHTUNG: Mit diesem Befehl kdnnen samtliche Interrupts des 
Rechners gesperrt werden. In der Regel kdnnen Sie durch Angabe 
von IPL 3 den Interrupt-Zustand wieder normalisieren. Sie kdnnen 
mit diesem Befehl aber auch z.B. den Tastaturinterrupt sperren (IPL 
6) in diesem Fall sind kein Eingaben von der Tastatur mehr mdgiich. 
Sie kdnnen dann den Zustand nicht mehr normalisieren uncf mtissen 
den Rechner neu starten. Verwenden Sie daher diesen Befehl nur 
auBerst vorsichtig!! 


JOYSTICK 


Typ: 

Syntax: 

Erklarang: 


Beispiel: 


Funktion 

A- JOYSTICK(<Joysticknummer>) 

Bevor Sie die JOYSTICK-Funktion benutzen konnen, miissen Sie erst 
dem Tastaturprozessor mitteilen, dafi jetzt ein Joystick angeschlossen 
ist und die eintreffenden Daten am Joystick/Mausport nicht mehr von 
der Maus kommen. Dies geschieht mit BIOS ,3,4,20. Mit BIOS ,3,4.8 wird 
die Maus wieder eingeschaltet. 

0 BIOS ,5,4,20 


1 

REPEAT 


2 

J=JOYSTICK(0) 


5 

IF BIT ( 7 , J ) THEN PRINT 

’’Feuer! ! ! ” 

4 

IF BIT ( 5 > J ) THEN PRINT 

’’Rechts 

5 

IF BIT (2, J) THEN PRINT 

"Links 

6 

IF BIT(1 , J) THEN PRINT 

”Hoch 

7 

IF BIT(0,J) THEN PRINT 

"Runter 

8 UNTIL LEN( INKEY $ ) 



9 BIOS ,5,4,8 


KEY 

Typ: Befehl 

Syntax: KEY <num.Ausdruck>=<Stringausdruck> 
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Erklanmg: Weist den Funktionstasten FI bis F10 (Nummer 1 bis 10), bzw. Shift-Fl 

bis Shift-FlO (Nummer 11 bis 20) einen maximal 32 Zeichen langen 
Stringausdruck zu. 

Auch Steuerzeichen wie Cursor hoch o.a. lassen sich iiber die 
entsprechenden Escape-Sequenzen (siehe VT -52 Tabelle) eingeben. 

Escape kann durch vorhergehendes [Control]-[A] in den String- 
ausdruck aufgenommenwerden: 

KEY 1 - '[Control] - [A] [Escape] [C]". 

Return erhalt man durch CHR$( 13): 

KEY2-"stop“+CHR$(13) 

Die aktuellen Funktionstastendefinitionen konnen iiber SAVE 
SETTINGS im Menii MODE abgespeichert werden. Eine nichtdefinierte 
Funktionstaste liefert den ASCIICode 0 zuriick. 

Siehe auch KEY LIST. 


KEY LIST 

Typ: Befehl 

Syntax: KEY LIST 

Erklanmg: Gibt die Liste der Funktionstasten FI bis F10 (Nummer 1 bis 10) und 

Shift-Fl bis Shift-FlO (Nummer 11 bis 20) zusammen mit den iiber KEY 
definierten Texten aus. 

Beispiel: KEY LIST 

KEY 1=”0MIKR0N. Software” 

KEY 2=”” 


KILL 


Typ: 

Befehl 

Syntax: 

KILL <Stringausdruck> 


KILL <Dateiname> 

Erklanmg: 

Die genannte Datei wird geloscht. 

Beispiel: 

KILL "TEST. BAS” 
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LDUMP 

Typ: Befehl 

Syntax: LDUMP [{Buchstabe | Buchstabe-Buchstabe}[[,{Buchstabe | Buchstabe- 

Buchstabe}]]] 

Erklarung: Alle Variablen werden mit Inhalt auf dem Drucker ausgegeben. Bei 

Feldern wird jedoch nur der Dimensionsbereich angegeben. 

Optional konnen einzelne Buchstaben Oder Buchstabenbereiche (nach 
Alphabet) genannt werden. Dann werden nur solche Variablen 
aufgelistet, die mit einem der genannten Buchstaben beginnen. 


LEFTS 

Typ: Funktion 

Syntax: LEFT$(<Stringausdruck>,<num.Ausdruck>) 

Erklarung: Ergibt einen Teilstring des Stringausdrucks beginnend mit dem ersten 

Zeichen mit der durch den numerischen Ausdruck gegebenen Lange. 
1st der numerische Ausdruck grofier als die Lange des Stringausdrucks, 
so wird der gesamte String zuriickgegeben. 

Siehe auch RIGHTS, MID$. 

Beispiel: 0 A8-”0MIKR0N. Software” 

1 PRINT LEFTS ( AS, V) 


OMIKRON 


LEN 

Typ: Funktion 

Syntax: LEN(<Stringausdruck>) 

Erklarung: Ergibt die Lange des Stringausdrucks (maximal 32766). 


LET 

Typ: Befehl 

Syntax: LET < Variable> - <Ausdruck> 

Erklarung: Weist der Variablen den Ausdruck zu. Auf den Befehl kann aber 

verzichtet werden (er ist nur aus Kompatibilitatsgriinden 
implementiert). 
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Die Zuweisung lautet dann: 
<Variable> = <Ausdruck> 
Beispiel: 0 LET A=^ + 5 

1 LET A*=2 

2 PRINT A 

16 


LIBRARY 

Typ: Befehl 

Syntax: LIBRARY <Library-Name>, <Pfad & Datcmame> 

Erklarung: Der LIBRARY-Befehl ladt eine OMIKRON.BASIC- Befehlserweiterung 

(im folgenden "Library" genannt) in Ihr Programm, falls es die 
betreffende Library noch nicht enthalt. Der erste Parameter ist der 
Library- Name, der zweite zeigt an, wo die Library auf dem 
Massenspeicher zu finden ist. 

Beispiel: LIBRARY Easygem , ”C ; \EASYGEM . LIB” 


Wenn die Library noch nicht in Ihrem Programm enthalten ist, wird Sie 
mit diesem Kommando nachgeladen. Anschliefiend steht die Library in 
Zeile Nummer 65534 Ihres Programms. Steht die Library einmal dort, so 
braucht Sie auch bei erneuten Programmstarts nicht mehr nachgeladen 
zu werden. Die gesamte Library ist praktisch in eine Zeile gepackt im 
Programm enthalten. Sie benotigt natiirlich wesentlich mehr 
Speicherplatz als eine gewohnliche andere Programmzeile. 

EasyGEM wiirde z.B. so aussehen: 

655J4 LIBRARY CODE Easygem 


Diese Zeile belegt mehr als 64 KB BASIC-Speicher. Wenn sie diese Zeile 
loschen, haben Sie EasyGEM aus dem Speicher entfernt. Das Laden 
einer Library geht viel schneller, als es z.B. mit dem MERGE-Befehl 
moglich ware. Das Laden von EasyGEM dauert z.B. nur ungefahr 10 
Sekunden. 


LIBRARY CODE 


Typ: 


Dieses Wort ist reserviert. Bitte nicht verwenden. 
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LINE COLOR 

Typ: Befehl 

Syntax: LINE COLOR=<num.Ausdruck> 

Erklarung: Der numerische Wert gibt die bei Zeichen Befehlen verwendtete Farbe 

an Siehe auch Palette. 


LINE INPUT 


Typ: 

Syntax: 

Erklarung: 


Beispicl: 


Befehl 

LINE INPUT [#<nurn.Ausdruck>][<String- 
Ausdruck>;]<Variable>[[,<Variable>]] 

LINE INPUT entspricht fast in jeder Hinsicht dem normalen INPUT. Es 
kann sogar wie INPUT mit USING zusammen zur Masken-Eingabe 
verwendet werden (siehe INPUT USING). Lediglich Trennzeichen wie 
z.B. Kommas werden von LINE INPUT ignoriert; es wird immer bis zum 
Zeilenende eingelesen. Wenn also meltr als eine Variable eingelesen 
werden soil, so sind diese in unterschiedlichen Zeilen einzugeben. 

0 OPEN ”0”,1 , "C:\TEST.DAT” 

1 WRITE #1, ”125”, "456", ”487” 

2 WRITE #1, ”125”, ”456”, ”487” 

3 CLOSE 1 

4 OPEN ”1” , 1 , "C:\TEST.DAT” 

5 INPUT «1,A$,BS,C$ 

6 LINE INPUT #1, Line$ 

7 CLOSE 1 

8 PRINT A$,B$,C$ 

9 PRINT Line® 


123 456 487 

”123”, ”456”, ”487” 


LINE PATTERN 


Typ: 

Syntax: 


Befehl 

LINE PATTERN = <num.Ausdruck> 
LINE PATTERN - <Linienmuster> 
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Erklarung: Das Linienmuster ergibt, als 16 Bit Integer Wert aufgefafit, das Limen- 

muster. Jedes gesetzte Bit wird gezeichnet, jedes geloschte bleibt frei. 
Beispiel: LINE PATTERN = $FFFF ' durchgezogen 

LINE PATTERN = $FF00 ’ gestrichelt SO % 

LINE PATTERN = $F000 ' gestrichelt 2S % 


LINE STYLE 

Typ: Befehl 

Syntax: LINE STYLE=<num.Ausdruck> 

Erklarung: Der numerische Wert gibt die bei Zeichen-Befehlen verwendtete 

Linienart an. Folgende Linienarten sind moglich: 

1: durchgezogeno Linie (Standardeinstellung) 

2: 12 Pixel Strich, 4 Pixel Liicke 
3: 3 Pixel Strich, 5 Pixel Liicke 
4: 7 Pixel Strich, 3 Liicke, 3 Strich, 3 Liicke 
S: 8 Pixel Strich, 8 Pixel Liicke 

6: 4 Pixel Strich, 3 Liicke, 2 Strich, 2 Liicke, 2 Strich, 3 Liicke 
7: durch LINE PATTERN frei definirbar 

1st durch LINE WIDTH eine andere Linienbreite als 1 gegeben, so wird 
immer eine durchgezogene Linie gezeichnet. 

HINWEIS: Um die Liicke zu zeichnen wird immer Farbe 0 verwendet. 
Deshalb ist es in einer Schwarz- Weifi Auflosung nicht ohne weiteres 
moglich eine weifie gestrichelte Linie auf schwarzem Grund zu 
zeichnen. Man mull zusatzlich den geeigneten Zeichenmodus (MODE =) 
wahlen. 


LINE WIDTH 

Typ: Befehl 

Syntax: LINE WIDTH = <num.Ausdruck> 

LINE WIDTH = <Linienbreite in Pixeln> 

Stellt die Linienstarke in Pixeln ein fiir alle DRAW- Befehle und fiir alle 
umrahmten gefiillten Flachen ein (siehe PBOX, BOX usw ). Die aktuelle 
VDI Version unterstiitzt nur ungerade Linienstarken. 


Erklarung: 
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LIST 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


LISTS 

Typ: 

LLIST 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Befehl 

LIST [sMarke>][{- 1 ,}[<Marke>]] 

Gibt ein Programm-Listing auf dem Bildschirm aus. Ohne Parameter 
wird das gesammte Listing ausgegeben. 1st nur der erste Parameter 
genannt, wird die entsprechende Programmzeile gelistet. 1st der Marke 
ein oder vorgestellt bzw. angehangt, so wird ein Listing vom 
Anfang bis zur angegebenen Zeilennummer, bzw. von der angegebenen 
Zeilennummer bis zum Ende ausgegeben. 

Sind zwei Marken durch oder getrennt gegeben, so wird der 
entsprechende Programmabschnitt aufgelistet. 

Achtung: Steuerzeichen im Programmtext werden bei LIST mit 
ausgegeben. Beim Drucken oder Schreiben in eine Datei mit CMD sollte 
daher LLIST verwendet werden (LLIST gibt keine Steuerzeichen aus) 

LIST 10-30 
LIST Schleife , 


Dieses Wort ist reserviert. Bitte nicht verwenden. 


Befehl 

LLIST [<Marke>][{- 1 ,}[<Marke>]] 

Gibt ein Programm-Listing auf dem Drucker aus. Ohne Parameter wird 
das gesammte Listing ausgegeben. Ist nur der erste Parameter genannt, 
wird die entsprechende Programmzeile gelistet. Ist der Marke ein 
oder vorgestellt bzw. angehangt, so wird ein Listing vom Anfang bis 
zur angegebenen Zeilennummer, bzw. von der angegebenen 
Zeilennummer bis zum Ende ausgegeben. 

Sind zwei Marken durch oder getrennt gegeben, so wird der 
entsprechende Programmabschnitt aufgelistet. 

Steuerzeichen im Programmtext werden nicht mit ausgegeben. Siehe 
hierzu auch CMD und LIST 

LLIST 10-30 
LLIST Schleife, 



Ill 


LN 

Typ: 

Funktion 

Syntax: 

LN (<num.Ausdruck>) 

Erklarung: 

Berechnet den natiirlichen Logarithmus des numerischen Ausdruoks 
Der Definitionsbereich umfafit alle positiven reellen Zahlen Negative 
Argumente fiihren zu "Illegal function call". 

Beispiel: 

0 PRINT LN(10), LN (10*) 

1 PRINT LN ( - 1 ) 

2.3025851 2.30258509299W57 

? Illegal function call in 1 

LOAD 

Typ: 

Befehl 

Syntax: 

LOAD <Sringausdruck> 


LOAD <Dateiname> 

Erklarung: Die genannte Datei wird als Basic-Programm geladen. 

Alle Variableninhalte und Dimensionierungen werden geloscht, offene 
Dateien werden geschlossen, Multi-Tasking-Aufrufe werden abgo 
schaltet. COMMON-Anweisung werden geloscht. 

Es ist unerheblich, ob das Programm als OMIKRON.BASIO Prograrmn 
Oder ASCII-Datei gespeichert wurde. Das Programm mul) im ASCII 
Format Zeilennummern haben. Doppelte Zeilen korrnen nicht geladen 
werden. Siehe auch SAVE. 


LOC 


Typ. 

Syntax: 

Erklarung: 


Funktion 

LOC(<Dateinummer>) 

Gibt die Nummer des zuletzt gelesenen oder geschriebenen 
Datensatzes in einer Random-Access Datei an. Die Datei muB zuvor 
durch OPEN "R“ geoffnet worden sein. Hat noch kein Zugriff auf die 
Datei stattgefunden, Oder wurde iiber das Dateiende hinaus gelesen, so 
ergibt die Funktion den Wert 0 
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LOCAL 

Typ: Befehl 

Syntax: LOCAL <Variable>[=<Ausdruck>][[,<Variable>[=<Ausdruck>] ]] 

Erklarung: Definiert eine Oder mehrere Variablen in einer Prozedur Oder 

mehrzeiligen Funktion als lokal und weist ihnen gegebenenfalls den 
genannten Ausdruck zu. 

Die lokale Variable hat nur innerhalb dieser Routine Giiltigkeit. Ruft sich 
die Routine selbst auf (rekursiv), so unterscheiden sich lokale Variablen 
der einzelnen Aufruftiefen. LOCAL kann nicht in GOSUB-Unterroutinen 
Oder in Schleifen verwendet werden! 

Beispiel: 0 AM 5 

1 Beispiel 

2 PRINT A ,B 

3 END 

4 DEF PROC Beispiel 

5 LOCAL A=16 

6 B -10 

7 PRINT A,B 

8 END^PROC 

16 10 

15 10 


LOCATE 

Typ: Befehl 

Syntax: LOCATE <num.Ausdruck>,<num.Ausdruck> 

LOCATE <Zeile>,<Spalte> 

Erklarung: Positioniert den Cursor auf die angegebene Bildschirmstelle. Die 

oberste Zeile hat hierbei die Nummer eins, wahrend die Spaltenzahlung 
beiObeginnt 

Siehe auch CSRLIN, POS 

Beispiel: LOCATE 3.5^ PRINT ”Das ist ein Test” 


Das ist ein Test 
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LOCK 

Typ: 

Syntax: 

Erklarung: 


LOF 

Typ: 

Syntax: 

Erklarung: 


LOG 

Typ: 

Syntax: 

Erklarung: 


Befehl 

LOCK [<String-Ausdruck> |OFF] 

Wenn Sie mittels [CONTROL] [D] einen Teil Ihres Programms 
emgetdappt haben, konnen Sie diesen Teil mit einem Passwort vor dem 
Ausklappen schiitzen. Bitte beachten Sie, dafi <String-Ausruck> immer 
genau 6 Zeichen lang sein mull (z.B. "CODEOl". Gehen Sie dabei 
folgendermaflen vor: 

Geben Sie LOCK und ihr Passwort ein. Klappen Sie jetzt alle Teile ein, 
die gegen Auflisten geschiitzt werden sollen. Mit LOCK OFF schalteu 
Sie jetzt das letzte eingegebene Passwort wieder aus, danach konnen 
Sie jetzt geschiitzte und eingeklappte Programmteile nicht mein 
ausklappen 

Das Passwort und der Zustand (eingeklappt) werden mit dem 
Programm gesichert. Sie konnen also Ihre Programm ohne Probleme ats 
Quelltext weitergeben und einige Teile davon einklappen und iiber 
LOCK schiitzen. ACHTUNG: Merken Sie sich Ihr Passwort gut, da Sie 
sonst die eingeklappten Teile nicht wieder ausklappen konnen. 


Funktion 

LOF(<num.Ausdruck>) 

LOF( <Dateinummer>) 

Gibt die Lange einer sequentiellen Oder "U"-Datei in Zeichen, einer 
Random-Access -Datei in Datensatzen an. 1st die sequentielle Datei zum 
Schreiben geoffnet, werden nur die neu geschriebenen Daten gezahlt 
1st sie zum Lesen geoffnet wird das Dateiende - Zeichen (CHR$(26)) 
mitgezahlt. Die Datei mull zuvor mit OPEN geoffnet worden sein. 


Funktion 

LOG(<num.Ausdruck>,<num.Ausdruck>) 

LOG(<Basis>,<Wert>) 

Errechnet den Logarithmus des Wertes zur angegebenen Basis. Basi: 
und Wert miissen beide groller 0 sein. 
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Beispiel: PRINT LOG(2,1024), L0G(3,81), LOG( 10# , 8475 ) 

10 4 3-9281397068751198 


LOW 


Typ: 

Funktion 

Syntax: 

LOW(<num.Ausdruck>) 

Erklarung: 

Ermittelt die unteren 16 Bit des in Intcger Langwort gewandelten 
numerischen Ausdrucks. Gegenstiick zu dieser Funktion ist HIGH. 


Anmerkung: LOW(X) <> X AND $FFFF! 

Beispiel: 

PRINT HEXS(L0W($12345678) ) , 1 OW( 1025 ), 10W(S1234FFFE) 


5678 1 -2 


LOWERS 

Typ: Funktion 

Syntax: LOWER$(<Stringausdruck>) 

Erklarung: Wandelt alle im Stringausdruck enthaltenen Buchstaben in kleine 

Buchstaben um. Auch die Umlaute A, 6, U werden umgewandelt. 
Gegenstiick zu dieser Funktion ist UPPERS. 

Beispiel: PRINT LOWER$(”Dies ist ein Test: uDS”) 

dies ist ein test: iioa 


LPEEK 

Typ: Funktion 

Syntax: LPEEK(<num.Ausdruck>) 

Erklarung: Liest an der durch nuraerischen Ausdruck gegebenen Adresse ein 

Langwort. Der numerische Ausdruck mufi eine gerade Zahl sein, da 
sonst ein Bus -Fehler auftritt. 

Siehe auch PEEK, WPEEK, POKE, WPOKE, LPOKE. 
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Beispiel: PRINT ’’Basisadresse des Betriebssystems:”; 

HEX! ( 1PEEK ( $4F2 ) ) 

Basisadresse des Betriebssystems: FC0000 


LPOKE 

Typ: Befehl 

Syntax: LPOKE <Addresse>,<Wert> 

Erklarung: Legt Wert an der gegebenen Adresse als ein Langwort ab. Der 

numerische Ausdruck muB gerade sein, dasonst ein Bus-Fehler 
auftritt.Der Wert muB zwischen -2147483648 und 2147483647 
liegen.Siehe auch POKE, WPOKE, PEEK, WPEEK, LPEEK. 


LPOS 


Typ: 

Syntax: 

Erklarung: 


Funktion 

LPOS(<num.Ausdruck>) 

Ermittelt die Anzahl der seit dem letzten Line-Feed (CHR$(10)) an den 
Drucker iibergebenen Zeichen. Sind darin keine Steuerzeichen 
enthalten, und befindet sich der Drucker nicht im Grafikmodus, 
entspricht dies der Druckspalte.Der numerische Ausdruck ist ohne 
Bedeutung, muB aber angegeben werden! 


LPRINT 

Typ: Befehl 

Syntax: LPRINT [USING <Stringausdruck>] [[{; | ,}<Ausdruck>]][ {, | ;}] 

Erklarung: Genau wie bei PRINT werden die folgenden Ausdriicke ausgegeben 

allerdings auf den Drucker. Fur die Formatierung und Tabulierung der 
Ausgabe gelten die gleichen Regeln wie fair PRINT. Auch die 
zusatzliche USING Anweisung lafit sich genau wie bei PRINT USING 
einsetzen. Hinweis: Wenn mittels MODE LPRINT "D” auf Landermodus 
deutsch umgeschaltet wurde, werden alle deutschen Umlaute und "B" 
auf Epson -kompatiblen Druckern automatisch richtig ausgegeben. 
Diese Zeichenkonvertierung kann sich unter Umstanden storend 
auswirken, wenn Steuerzeichen oder eine Grafik zum Drucker 



116 


Beispiel: 


iibertragen werden soil. Man sollte also zuvor stets mit MODE LPR1NT 
“USA" die Zeichenkonvertierung abschalten. 


0 MODE LPRINT ’’USA” 

1 LPRINT "A 0 t) ii o a B” 

2 MODE LPRINT ”D” 

5 LPRINT ”A 0 t) ii o a B” 
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LSET 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


MAT 

Typ: 

Syntax: 


Erklarung: 


Befehl 

LSET <String-Variable>=<Stringausdruck> 

Der Stringausdruck wird linksbtindig in <String- Variable> eingesetzt, 
ohne dafl deren Lange verandert wird. Hierzu wird der Stringausdruck 
hinten abgeschnitten oder durch Leerzeichen erganzt. Dieser Befehl 
wird besonders bei Zuweisungen an Puffervariable (siehe FIELD) 
benutzt. 

Siehe auch RSET. 

0 A$= SPACES (20) 

1 LSET A$=”0MIKR0N” 

2 PRINT "*”;AS;”*” 

♦OMIKRON * 


Befehl 

MAT <Feldvariable>{+ 1 - 1 * |/}<Feldvariable> 

MAT <Feldvariable> = < Feldvariable> [ {+ 1 - 1* I /}<Feldvariable> ] 

1 : MAT <Feldvariable> = 1 

2: MAT <Feldvariable>=<FeIdvariable> 

3: MAT <Feldvariable>{+ 1 - 1 * | /}<Feldvariable> 

4; MAT <Feldvariable> =<Feldvariable> {♦ | - 1 * |/}<Feldvariable> 
Zunachst ein paar grundsatzliche Dinge: Matrixbefehle funktionieren 
nur mit zweidimensionalen Flieflkommafeldern. Dabei spielt es keine 
Rolle, ob Sie einfache oder doppelte Genauigkeit verwenden. Die Grofie 
der Matrizen wird durch die angegebenen Indices bestimmt. Die 
Zahlung der Elemente beginnt wie immer bei Null. "Matrix!(2,2)“ meint 
also eine dreireihige quadratische Matrix. "Matrix!(N,M) ist 
entsprechend eine N+l.M+l Matrix. Wie immer bei der Verwendung 
von Feldern kann der Index auch weggelassen werden, was genauso 
behandelt wird, als hatte man den hochsten Index angegeben. Wurde 
das Feld "Matrix!" also auf 3,3 dimensioniert dann ist "Matrix!(,)" eine 
vierreihige quadratische Matrix. 

Bei der Verwendung des Befehls MAT sind vier verschiedene Syntaxen 
zu imterscheiden: 

1 . Erzeugen einer Einheitsmatrix. Der quadratischen Matrix wird die 

Einheitsmatrix zugewiesen. 
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Die Matrixzuweisung: Es werden alle Elemente der rechten 
Seite der linken zugewiesen. 

Hinweis: dieser Befehl funktioniert mit beliebigen Felder, die 
nicht die speziellen Anforderungen von Matrizen im Sinne 
von OMIKRON.Basic genugen. Es wird einfach alles von 
rechts nach links kopiert bis zum angegebenen Element. Eine 
Typkonvertierung ist dabei natiirlich nicht mdglich. 

3. Skalare Matrix-Operationen: Je nach Operator wird: 

zu jedem Element ein Wert addiert 
von jedem Element ein Wert subtrahiert 
jedes Element mit einem Wert multipliziert 
jedes Element durch einen Wert dividiert 

4. Vektorielle Matrix-Operationen: Je nach Operator werden: 

zwei Matrizen addiert (elementweise) 
zwei Matrizen subtrahiert (elementweise) 
zwei Matrizen multipliziert 

zwei Matrizen dividiert (mit der Inversen multipliziert) 


Bei der Matrizen-Multiplikation bzw. Division ist auf eine geeignete 
Wahl der Matrix-Dimensionen zu achten. Es gilt: 

A(P,Q)=B(P,N)*C(N,0). Bei der Division mufl zusatzlich die Matrix C 
quadratisch sein. 

Beispiel: 0 N=3 

1 DIM Matrix! (N,N) ,Mat_A! (N,N) ,Mat_B! (N,N) ,Mat_C! (N , N ) 

2 DIM Array(10),Feld(10) 

3 ’ 

4 MAT Matrix! ( , )=1 

5 MAT Mat_A! (1 ,1 )+2 

6 MAT Mat_C ! ( , )=Mat_B! ( , )+Mat_A! ( , ) 

7 MAT Matrix! (1,2)=Mat_A! (1,2) 

8 MAT Feld(5)=Array(6)’ der kleinere Index gilt 


MAT CLEAR 

Typ: Befehl 

Syntax: MAT CLEAR <Feldvariable> 

Erklinag: MAT CLEAR loscht ein beliebiges Feld bis zum angegebenen 

maximalen Index. Wird kein Index angegeben, so wird das gesamte 
Feld geloscht. 
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Beispiel: 0 N=3 

1 DIM Matrix! (N,N) 

2 DIM Array (10) 

3 ’ 

4 MAT CLEAR Matrix! ( , ) 

5 MAT CLEAR Array(5) 


MAT INV 

Typ: Befehl 

Syntax: MAT <Feldvariable>= INV <Feldvariable> 

Erklarnng: Berechnet die inverse Matrix. Beide Matrizen mttssen quadratisch sein. 

Existiert die inverse Matrix nicht (Determinate = 0), so wird eine 
Fehlermeldung erzeugt. 

Beispiel: 0 N=3 

1 DIM Mat_A! (N,N) ,Mat_B! (N,N) 

2 ’ 

3 MAT Mat_A! ( , )=1 

4 MAT Mat_B!(,)= INV Mat_A!(,) 


MAX 

Typ: Funktion 

Syntax: MAX (<Ausdruck>,<Ausdruck>) 

Erklarnng: Gibt den groficren der beiden Ausdriicke als Funktionswert. 

Vergleiche zwischen numerischen und Stringausdriicken sind 
unzulassig. Siehe auch MIN. 

Beispiel: PRINT MAX (1,4), MAX (-6, PI), MAX(”a”,”B”) 

4 3.1415926535897932 a 


MEMORY 


Typ: 

Syntax: 


Funktion 

MEMORY(<num.Ausdruck>) 
MEMORY(<Blocklange | -1>) 
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Erklarung: Die MEMORY-Funktion dient zum reservieren von GEMDOS -Speicher. 

Sie entspricht weitgehend der zugehorigen Betriebssystemfunktion 
MALLOC. Mit MEMORY reservierte Speicherblocke werden jedoch bei 
Programmende Oder bei CLEAR automatisch freigegeben. Der Aufruf 
mit minus eins als Parameter liefert die Lange des grofite freien Blocks 
zuriick. Ansonsten wird die Speicheradresse zuriickgegeben, ab der 
der verlangte Speicherblock zur Verfiigung steht. Um ausreichend 
grofie Mengen GEMDOS -Speicher mit MEMORY reservieren zu 
konnen, mufi der entsprechende Parameter bei CLEAR vergrofiert 
werden. Steht nicht ausreichend Speicher zur Verfiigung, wird ein "Out 
of memory" ausgelost. 

Um Speicherblocke, die Sie per MEMORY angelegt haben, wieder 
freizugeben verwenden Sie FRE. 

Achtung: Pro MEMORY-Block benotigt das BASIC intern 4 Bytes. 
Aufierdem sollten Sie darauf achten, dafi MALLOC nicht ofter als 100 
mal ausgefiihrt wird. 

Beispiel: Speicher=MEMORY( 1024) 


MEMORYBLOCK 

Typ: Befehl 

Syntax: MEMORY BLOCK <Zwei Ziffern> , <Grofie> , <Adressriickgabevari- 

able> 

Erklarung: Das MEMORRY_BLOCK-Kommando erzeugt schon beim Eingeben in 

Ihr Programm einen Speicherblock der angegebenen Grofie, der in 
Ihrem Programm fortan erhalten bleibt. Dieser reservierte 
Speicherblock (=Memoryblock, engl.) wird in Ihrem Programm mit 
abgespeichert und eingeladen. Dieser Speicherblock wird identifizeirt 
durch die beiden Ziffern direkt hinter dem MEMORY_BLOCK Befehl. 
Wird ein weiterer MEMORY_BLOCK mit gleichen zwei Ziffern erzeugt, 
der eine geringere Grofie als der erste hat, so wird der erste dabei 
zerstort. 

Da der Speicherblock also durch die zwei Ziffern gekennzeichnet ist, 
sind maximal 100 Speicherblocke in einem Programm moglich. 
■Achtung: Es miissen immmer GENAU zwei Ziffern sein (z.B. 03, 00 
oder 23). die Grofie des Blocks mufi eine gerade Zahl sein. 

Wenn Ihr Programm iiber den MEMORY_BLOCK-Befehl lauft (nach 
RUN), wird die Adresse des Speicherblocks in die Riickgabevairable 
geschrieben. Erst, wenn Sie Ihr Programm mit RUN starten, wird die 
absolute Adresse des Speicherblocks festgelegt (Anderungen im 
Programm verander z.B. die Adresse). Maschinenspracheprogramme in 
durch MEMORY_BLOCK angelegten Speicherbereichen sollten also 
kerne absoluten Adressen verwenden! 
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Beispiel: MEMORY_BIOCK 00 , 32000 .Titelbild 

COMPILER OFF 

BLOAD "TITEL. PIC", Titelbild 

COMPILER ON 

PRINT CHR8(27);”f”; 

MEMORYJIOVE Titelbild, 32000 TO LPEEK(844E) 
WAIT 3 


Wenn Sie dieses Programm im Interpreter starten, wird das Bild 
“TITEL.PIC" in den Speicherblock geladen. Sobald das Programm 
compiliert wird, ist das Titelbild Bestandteil des Programms und das 
Programm mufi es nicht standig nachladen. 


MEMORY_MOVE[B] 

Typ: Befehl 

Syntax: MEMORY_MOVE[B] <QueUadresse>, <Lange> TO <Zieladresse> 

Erklarang: Das Bewegen von Speicherbereichen kann man am besten mit dem 

MEMORY_MOVE-Befehl bewerkstelligen. Das Speicherstiick, das bei 
<Quelladresse> beginnt und <Lange> lang ist, wird an die <Zieladresse> 
kopiert. Bei MEMORY MOVE miissen alle Parameter gerade Zahlen 
sein, wahrend MEMORY_MOVEB auch ungerade Zahlen akzeptiert, 
dafiir aber langsamer ist. 

Beispiel: Scr_Addr= LPEEK ( 844E ) 

Save_Buf= MEMORY (32000) 

MEMORYMOVE Scrjtddr, 32000 TO Save_Buf ’ rettet Bild- 
schirm 

'FILE SELE CT(Pathl) .Namel, Button ’ "zerstort” Bildschirm 
MEM0RY_M0VE Save_Buf ,32000 TO Scr_Addr ’ restauriert 
Bildschirm 


MERGE 


Typ: 

Syntax: 

Erklarang: 


Befehl 

MERGE <Stringausdruck> 

MERGE <Programmname> 

Ladt zum aktuellen Basic Programm das in Stringausdruck genannte 
hinzu. Das zu ladende Programm mufl als ASCII Dastei vorliegen (als 
Block mit Zeilennummern gesichert Oder SAVE ,A). 
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MID$ 

Typ: 

Syntax: 


Erkl&rtlng: 


Beispiel: 


MID$ 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Bei gleichen Zeilennummern, wird die alte Zeile geloscht (siehe auch 
RENUM). 


Befehl 

MID$(<String-Variable>,<num.Ausdruck>,<num. 

Ausdruck> )=< Stringausdruck> 

MID$(<String-Variable>,<Stelle>,<Anzahl>)=<Stringausdruck> 

Weist der String-Variable ab der angegebenen Stelle den 
Stringausdruck zu, max. die angegebene Anzahl Zeichen. Dabei wird 
die Lange der String -Variablen nicht verandert. 

Einen String mit Zeichen auffiillen kann man mit MID$ nicht! 

0 Firma$="OMIKRON Soft + Hardware GmbH” 

1 MIDj(Firma8 ,8, 1 ) = ” . ” 

2 PRINT FirmaS 

OMIKRON.Soft + Hardware GmbH 


Funktion 

MID$(<Stringausddruck,<num.Ausdruck>[,<num.Ausdruck>]) 

MID$(<Stringausdruck>,<SteIle>[,<Lange>]) 

Ergibt einen Teilstring des Stringausdrucks beginnend ab der 
gegebenen Stelle mit der gegebenen Lange. 1st Lange nicht gegeben 
oder groCer als der verbleibende Teil des Stringausdrucks, so endet der 
Teilstring am Ende des Stringausdrucks. 

0 A$=”0MIKR0N. Software” 

1 PRINT MIDS ( AS ,6,7) 

2 PRINT MID$(”abcdefg”,4) 


ON. Soft 
defg 
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MIN 

Typ: Funktion 

Syntax: MIN (<Ausdruck>,<Ausdruck>) 

Erklarung: Gibt den kleineren der beiden Ausdriicke als Funktionswert. 

Vergleiche awischen numerischen und Stringausdriicken sind 

unzulassig 

Siehe auch MAX. 

Beispiel: PRINT MIN(-6,0), f1IN(7,7-'1 ) , MIN(”a”,”b”) 

-6 V a 

MIRRORS 

Typ: Funktion 

Syntax: MIRROR$(<Stringausdruck>) 

Erklarung: Spiegelt den gegebenen Stringausdruck. Das erste Zeichen wird mit 

dem letzten vertauscht, das zweite mit dem vorletzten etc. 

Beispiel: 0 PRINT MIRRORS ( ”12540” ) 

04521 


MKD$ 

Typ: Funktion 

Syntax: MKD$(<num.Ausdruck>) 

Erklarung: Wandelt den numerischen Ausdruck in eine doppelt-genaue- 

Flieflkommazahl um, und diese in einen 10 Zeichen langen 
Stringausdrucks. Umkehrfunktion zu CVD. 

Beispiel: 0 Zahl$=MKD$( PI ) 

1 FOR 1=1 TO 10 

2 PRINT HEX$(ASC(MIDS(ZahlS ,1 , 1 ) ) ) ; 

5 NEXT I 


0 4 C9 F DA A2 21 68 C2 56 
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MKDIR 

Typ: Befehl 

Syntax: MKDIR <Stringausdruck> 

Erklarung: Legt einen neuen Ordner an. Der Ordnername wird in String- Ausdruck 

mit Oder ohne Pfad angegeben, in letzterem Fall wird der Standardpfad 
benutzt (siehe CHDIR). 


MKI$ 

Typ: Funktion 

Syntax: MKI$(<num.Ausdruck>) 

Erklarung: Wandelt den numerischen Ausdruck in eine Integer-Wort-Zahl um, und 

diese in einen 2 Zeichen langen Stringausdruck. Umkehrfunktion zu 
CV I. 

Beispiel: PRINT MKI$ ( $5445 ) +MKI$( $5354) 

TEST 


MKILS 

Typ: Funktion 

Syntax: MKIL$(<num Ausdruck>) 

Erklarung: Wandelt den numerischen Ausdruck in eine Integer-Langwort-Zahl 

um, und diese in einen 4 Zeichen langen Stringausdruck. 
Umkehrfunktion zu CVIL. 

Beispiel: PRINT MKILS ( $57656074 ) 

Welt 


MKSS 

Typ: Funktion 

Syntax: MKS$(<num.Ausdruck>) 

Erklarung: Wandelt den numerischen Ausdruck in eine einfach-genaue- 

Fliefikommazahl um, und diese in einen 6 Zeichen langen 

Stringausdruck. Umkehrfunktion zu CVS. 
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Beispiel: 


MOD 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


MODE 

Typ: 

Syntax: 

Erklarung: 


MODE 

Typ: 

Syntax: 

Erklarnng: 


0 Zahl$=MKS#( PI ) 

1 FOR 1=1 TO 6 

2 PRINT HEX$ ( ASC ( MID8 ( Zahlt ,1,1))); 

3 NEXT I 

0 4 C9 F DA A2 


Operator 

<num.Ausdruck> MOD <num.Ausdruck> 

Ermittelt den Restwert einer Division des ersten numerischen 
Ausdrucks durch den zweiten. Der Teiler mufi natiirlich ungleich 0 sein. 
Das Vorzeichen entspricht dem des ersten Ausdrucks. 

PRINT 10 MOD 3,-20 MOD 7.15 MOD -6 

1 -6 3 


Befehl 

MODE = <num.Ausdruck> 

MODE = <Zeichenmodus> 

Stellt den Zeichenmodus fiir alle Graphikbefehle ein. 
Mogliche Einstellungen sind: 

1 deckend 3 XOR 

2 transparent 4 revers transparent 


Befehl 

MODE <Stringausdruck> 

MODE <Landerkennung> 

Stellt den landerspezifischen Modus ein. Mogliche Einstellungen sind 
"D" fiir Deutschland, "GB" fiir England, T fiir “Italien" und "USA" fiir die 
Vereinigten Staaten von Amerika. Eine Besonderheit hat es mit F bzw. 
"pA" fQr Frankreich auf sich. Bei “F" werden die franzosischen 
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Sonderzeichen folgendermafien erzeugt: Eine der Tasten , “ A " usw. 

wird eingegeben und danach die Taste des Buchstabens. Stellt man 
hingegen den Modus "F A " ein, muii fur das " A " Zeichen das Zeichen 
(ASCII-Code 222) eingegeben werden. Da dieses Zeichen auf der 
deutschen Tastatur fehlt, wurde der zweite Modus eingefiihrt, bei dem 
es reicht, die " A " Taste zu driicken. Die Landereinstellung hat Einflufi auf 
Datums - und Zeitformat und auf Accents im Editor 
Beispiel: 0 MODE ”D” 

1 PRINT DATES 

2 MODE "USA” 

3 PRINT DATES 


MODE LPRINT 


Typ: 

Syntax: 


Erklarung: 


Beispiel: 


Befehl 

MODE LPRINT <Stringausdruck> 

MODE LPRINT <Landerkennung> 

Die Landerkennung "D" bewirkt die richtige Ausgabe alle deutschen 
Umlaute und des "B" auf einem Epson-kompatiblen Drucker. Wird als 
Landerkennung "USA" Oder "GB" angegeben, so unterbleibt jede 
Zeichenumwandhing. Wichtig: die Zeichenumwandlung des MODE 
LPRINT Befehls wirkt nur auf die Druckerausgabe mit LPRINT (nicht 
etwa iiber OPEN "P"). Wenn mittels LPRINT Steuerzeichen zum Drucker 
ilbermittelt werden sollten odor eine Grafik ausgedruckt werden soil, so 
mufi unbedingt MODE LPRINT "USA" eingestellt sein. Wenn dies 
versaumt wird, konnen unter Umstanden Teile der Steuerzeichen Oder 
der Grafik durch die Zeichenumwandlung verandert werden und 
erzielen so nicht das gewtinschte Ergebnis. 

0 MODE LPRINT ’’USA” 

1 LPRINT ”S 0 ii ii 6 a B” 

2 MODE LPRINT ”D” 

3 LPRINT ”A 0 ti ii o a B" 


MOUSEBUT 

Typ: Funktion 

Syntax: MOUSEBUT 

Erklarung: Gibt den Zustand der Maustasten an: 

0: keine Taste 
1 : linke Taste 
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Beispiel: 


2: rechte Taste 


3: beide Tasten (3= 1 +2) 

Siehe auch MOUSEX, MOUSEY. 

0 PRINT CHR$(27);"fIaste bricht ab ...”:PRINT 

1 REPEAT 

2 PRINT CHR 8 ( 27 ) ; ”A” ; MOUSEBUT ; MOUSEX ; MOUSEY ; 

CHR$(2?) ;”K” 


5 UNTIL LEN(INKEYS) 


MOUSEOFF 

Typ: Befehl 

Syntax: MOUSEOFF 

Erklarung: Schaltet die Maus ab (wird nicht mehr angezeigt). 

Da das Betriebssystem die Anzahl der Mauseinschaltungen und 

Ausschaltungen mitzahlt, ist darauf zu achten, dafi innerhalb eines 
Programms die Maus genausooft wieder ein- wie ausgeschaltet wird. 

Im Direktmodus sorgt OMIKRON.BASIC selbstandig fUr korrekte Maus- 
aktivierung. 


MOUSEON 

Typ: Befehl 

Syntax: MOUSEON 

Erklarung: Schaltet die Maus an (Maus wird angezeigt). 

Siehe MOUSEOFF. 


MOUSEX 

Typ: Funktion 

Syntax: MOUSEX 

Erklarung: Ergibt die X Koordinate der Mausposition. Dabei ist unerheblich, ob 

die Maus geradde angezeigt wird Oder nicht. 

Siehe auch MOUSEY, MOUSEBUT. 

0 PRINT CHR8(27);”fTaste bricht ab ...”:PRINT 

1 REPEAT 


Beispiel: 
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2 PRINT CHR$(27) ; ”A” ;MOUSEBUT ;MOUSEX;MOUSEY ; 

CHRt(27);”K” 


3 UNTIL LEN ( INKEY8 ) 


MOUSEY 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Funktion 


MOUSEY 


Ergibt die Y Koordinate der Mausposition. Dabei ist unerheblich, ob die 
Maus geradde angezeigt wird Oder nicht. 

Siehe auch MOUSEY, MOUSEBUT. 


0 PRINT CHRS(27);”fIaste bricht ab ...”:PRINT 

1 REPEAT 

2 PRINT CHR$ ( 27 ) ; ” A” ; MOUSEBUT ; MOUSEX ; MOUSEY ; 

CHRt(27);”K” 


3 UNTIL LEN (INKEY 8) 


NAME ... AS 

Typ: Befehl 

Syntax: NAME <Stringausdruck> AS <Stringausdruck> 

NAME <Dateiname/alt> AS <Dateiname/neu> 

Erklarung: a) Die genannte Datei erhalt einen neuen Namen: Die Datei kann mit 

Pfad angegeben werden, daim mufl dieser Pfad aber auch im neuen 
Dateinamen angegeben sein. 

b) Der Pfadname andert sich: Die Datei wird auf dem gleichen 
logischen Laufwerk verschoben. Ab TOS 1.4 konnen auch ganze Ordner 
verschoben werden. 


NAND 


Typ: 

Syntax: 

Erklarung: 

Beispiel: 


Operator 

<num.Ausdruck> NAND <num.Ausdruck> 

Verkniipft die beiden numerischen Ausdriicke “logisch nicht-und". 

0 PRINT BIN$( (961010 NAND %1 100 )+%10000 ) 


111 



129 


NEW 

Typ: 

Syntax: 

Erklarang: 


NEXT 

Typ: 

Syntax: 

Erklarang: 


NDC 

Typ: 

Syntax: 

Erklarang: 


Befehl 

NEW [<Stringausdruck>] 

NEW [<Dateiname>] 

Loscht das im Speicher befindliche Basic-Programm, alle 
Variableninhalte und Dimensionierungen. Offene Dateien werden 
geschlossen, ON ERROR GOTO- und ON TIMER GOSUB-Aufrufe 
werden abgeschaltet. COMMON -Anweisung werden geloscht. 
Optional kann ein Name des neuen Programms, das anschliefiend 
geschrieben wird, angegeben werden. 


Befehl 

NEXT [<num. Variable>][[,<num. Variable>]] 

NEXT [<Schleifenvariable>][[,<Schleifenvariable>]] 

Beendet eine FOR-NEXT-Schleife. 1st keine Schleifenvariable 
angegeben, so bezieht sich das NEXT immer auf das letzte FOR. Durch 
die Aufzahlung mehrerer Schleifenvariablen konnen mehrere Schleifen 
auf einmal beendet werden. 

Siehe auch FOR ... TO ... STEP ... NEXT. 


Befehl 

NDC [<X>,<Y>,<Breite>,<Hbhe>] 

NDC [<X1>,<Y1> TO <X2>,<Y2>] 

Nach dem NDC-Befehl funktionieren alle Grafik- Befehle so, als wenn 
Sie einen Bildschirm hatten, der bei den Koordinaten 0,0 unten links 
startet und bis zu den Koordinaten 32767, 32767 oben rechts geht. Die 
Koordinaten werden bei den jeweiligen Grafikbefehlen dann 
automatisch so umgerechnet, dafi sie in das von Ihnen im NDC-Befehl 
angegebenen Rechteck passen. NDC ohne Koordinatenangabe schaltet 
einfach wieder auf die physikalischen Koordinaten um. 

Achtung: Im NDC-Modus ist der Punkt 0,0 in der linken unteren Ecke 
des gegebenen Rechtecks. Normalerweise ist der Punkt 0,0 in der 
linken oberen Ecke des Bildschirms. 



130 


NOISE 

Typ: 

Syntax: 

Erklarung: 


NOR 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


NOT 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


Befehl 

NOISE <num.Ausdruck>,<num.Ausdruck> 

NOISE <Nummer>,<Frequenz> 

Schaltet Rauschen auf die Tonkanale des Sound-Chips. 

Nummer gibt die aufzuschaltenden Tonkanale: 

1 : Tonkanal 1 
2: Tonkanal 2 
4: Tonkanal 3 

Durch entsprechende Adddition konnen mehrere Tonkanale 
angesprochen werden. 

Frequenz muC ein Wert von 0 bis 31 sein. Je kleiner der Wert, desto 
hoher ist das Rauschen. 

Um das Rauschen zu horen mufi den entsprechenden Kanalen mittels 
VOLUME eine Lautstarke zugewiesen werden. 

Siehe auch TUNE. 


Operator 

<num.Ausdruck> NOR <num.Ausdruck> 

Verkniipft die beiden numerischen Ausdriicke "logisch nicht-oder". 

0 PRINT BIN$( (961010 NOR %1100)+%10000) 

1 


Funktion 

NOT <num.Ausdruck> 

Negiert den num. Ausdruck bitweise. Da alle Ausdriicke ungleich 0 als 
wahr angesehen werden, macht NOT nicht unbedingt aus einem wahren 
Ausdruck einen falschen. 

0 0k=1 

1 PRINT NOT ( 2 > 1 ) , NOT Ok 


0 


-2 
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OCT$ 

Typ: Funktion 

Syntax: OCT$(<num.Ausdruck>) 

Erklarnng: Wandelt den numerischen Ausdruck in eine Zeichenkette um, die den 

gerundeten Wert des Ausdrucks als Oktalzahl darstellt. 

Beispiel: PRINT OCT ft ( 8 1 2J45678 ) , 0CTI(-16) 

2215053170 -20 

OFF, ON 

Erklarung: Siehe OUTLINE, LOCK 


ON ERROR GOTO 

Typ: Befehl 

Syntax: ON ERROR GOTO {<Marke> 1 0} 

Erklarnng: Wenn wahrend des Programmlaufs ein Fehler auftritt, der eine 

Fehlermeldung und den Programmabbruch zur Folge hatte, kann dieser 
mit ON ERROR GOTO abgefangen werden. Bei Auftreten des Fehlers 
wird zur angegebenen Marke verzweigt. Wird statt einer Marke eine 
Null angegeben so ist die Fehleruberwachung wieder abgeschaltet. Die 
eigene Fehlerbehandlung mufi unbedingt mit RESUME abgeschlossen 
werden, damit erkennbar ist, was zur Fehlerbehandlung und was zum 
normalen Programm gehort. Tritt wahrend der Fehlerbehandlung 
erneut ein Fehler auf, so wird in jedem Fall abgebrochen. Wenn die 
Fehleruberwachung schon innerhalb der Fehlerbehandlung abge 
schaltet wird, wird der zunachst abgefangene Fehler doch noch 
ausgegeben und anschliefiend abgebrochen. Die Systemvariablen ERR, 
ERR$ und ERL enthalten Fehlernummer, Fehlertext und Fehlerzeile. 
(Siehe Fehlermeldungen). Beispiel siehe auch RESUME. 

Beispiel: 0 ON ERROR GOTO Fehler 

1 OPEN ”A” , 1 , ’’C:\TEST.DAT” 

2 PRINT #1 , ’’Dies ist ein Test” 

3 CLOSE 1 

4 END 
5-Fehler 

6 IF ERR =53 THEN ’ falls File not found 

7 OPEN ”0”,1 , "O:\TEST. DAT’” Datei neu erzeugen 
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ON ... 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


ON ... 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


8 CLOSE 1 

9 RESUME 

10 ELSE 

11 ON ERROR GOTO 0’ andere Fehler ausgeben 

12 ENDIF 

GOSUB 

Befehl 

ON <num.Ausdruck> GOSUB <Marke> [[,<Marke>]] 

In Abhangigkeit von <num.Ausdruck> wird zu einem der durch 
<Marke> definierten Unterprogramm verzweigt. 1st der num. Ausdruck 
eins, wird zum Ersten, ist er zwei, zum Zweiten verzeigt usw. 1st der num. 
Ausdruck 0 Oder grofier als die Anzahl der angegebenen Marken, so 
wird iiberhaupt nicht verzweigt und der Befehl wird ignoriert. 

Vergleiche ON GOTO. 

0 INPUT "Wert (1-3): ”;Wert 

1 ON Wert GOSUB Tier.Gemuese ,Baum 

2 END 

3- Tier: PRINT ”Hund”: RETURN 

4- Gemuese: PRINT ’’Kohl”: RETURN 

5- Baum: PRINT ’’Eiche": RETURN 


GOTO 

Befehl 

ON <num.Ausdruck> GOTO <Marke> [[,<Marke>]] 

In Abhangigkeit von <num.Ausdruck> wird zu einer der angegebenen 
Marken verzweigt. Ist der num. Ausdruck eins, wird zur ersten, ist er 
zwei, zur zweiten Marke verzeigt usw. Ist der num. Ausdruck 0 Oder 
grofier als die Anzahl der angegebenen Marken, so wird iiberhaupt 
nicht verzweigt und der Befehl wird ignoriert. 

Vergleiche ON GOSUB. 

0 INPUT ’’Wert (1-3): ”;Wert 

1 ON Wert GOTO Tier, Gemuese, Baum 

2 END 

3- Tier: PRINT ”Hund”: END 

4- Gemuese: PRINT "Kohl”: END 

5 - Baum: PRINT ’’Eiche”: END 




133 


ON HELP GOSUB 

Typ: Befehl 

Syntax: ON HELP GOSUB <Marke> 

Erklamng: Wenn die HELP-Taste gedrtickt wird, so wird zu dem durch <Marke> 

definierten Unterprogramm verzweigt. 

HINWEIS: Fiir compilerte Programme gilt: das Unterprogramm sollte 
keine Stringverarbeitung enthalten! 

Beispiel: 0 ON HELP GOSUB Hilfe 

1 PRINT "Bitte HELP-Taste driicken” 

2 REPEAT 

5 UNTIL Ende’ hier steht ihr Hauptprogramm 

4 END 

5 ’ 

6-Hilfe 

7 Taste$= INKEY$ 

8 PRINT ’’Die Hilfe Taste wurde gedriickt” 

9 Ende=-1 

10 RETURN 


ON KEY GOSUB 


Typ: Befehl 

Syntax: ON KEY GOSUB <Marke> 

E rklam ng: Immer wenn eine Taste gedruckt wird, wird zu dem durch <Marke> 

definierten Unterprogramm verzeigt. Wichtig: das Unterprogramm mufi 
die gedriickte Taste sofort durch Aufrufen der INKEY Funktion abholen, 
da sonst erneut in das Unterprogramm verzweigt wird, was einen 
Stapeliiberlauf und "Out of Memory" zur Folge hat. 

HINWEIS: Fiir compilerte Programme gilt: das Unterprogramm sollte 
keine Stringverarbeitung enthalten! 

Beispiel: 0 ON KEY GOSUB Taste 

1 PRINT ’’Bitte einige Tasten driicken ESC->Ende” 

2 REPEAT 

5 UNTIL Ende’ hier steht ihr Hauptprogramm 

4 END 

5 ’ 

6-Taste 

7 Taste= CVIL( INKEYS ) 
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8 Shiftbits=Iaste SHR 24 

9 Scancode= HIGH(Taste) AND IFF 

10 Ascii=Taste AND IFF 

11 PRINT "Shiftbits : Shiftbits ; ” Scancode:”;Scancode 

12 PRINT ’’ASCII: ”;Ascii 

13 IF Scancode=1 THEN Ende=-1 

14 RETURN 


ON MOUSEBUT GOSUB 

Typ: Befehl 

Syntax: ON MOUSEBUT GOSUB {<Marke> 1 0} 

Erklamng: Immer wenn eine der beiden Maustasten (oder beide) gedriickt sind 

wird in das durch <Marke> definierte Unterprogramm verzweigt. 
Wichtig: das Unterprogramm wird nur angesprungen, wenn sich der 
Zustand der Maustasten andert: Wenn Sie also eine Maustaste driicken 
und dann gedriickt halten, so wird das Unterprogramm nur einmal 
abgearbeitet. Die Null hinter GOSUB schaltet die 
Mausknopfuberwachung aus. 

HINWEIS: Fur compilerte Programme gilt: Das Unterprogramm sollte 
keine Stringverarbeitung enthalten! 

Beispiel: 0 ON MOUSEBUT GOSUB Maustaste 

1 PRINT "Bitte Maustasten driicken” 

2 REPEAT 

3 UNTIL LEN( INKEYI )’ hier steht ihr Hauptprogramm 

4 END 

5 ’ 

6-Maustaste 

7 PRINT ’’Mausknopf zustand: MOUSEBUT 

8 RETURN 


ON ... RESTORE 

Typ: Befehl 

Syntax: ON <num.Ausdruck> RESTORE <Marke> [[,<Marke>]] 

Erklarnng: Der Zeiger, der auf die nachste durch READ zu lesende offene 

Zuweisung zeigt wird in Abhangig von <num. Ausdruck> verschoben. 1st 
der Wert des num. Ausdrucks eins, so gilt die erste, ist er zwei, so gilt 
die zweite Marke usw. Der DATA-Zeiger zeigt auf die erste durch DATA 
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definierte offene Zuweisung, die hinter der betreffenden <Marke> 
erscheint. 1st der num. Ausdruck 0 Oder grofier als die Anzahl der 
angegebenen Marken, so wird der DATA Zeiger nicht verschoben und 
der Befehl ignoriert. 

Beispiei: 0 DATA ’’erster Text” 

1 -Tier: DATA ”Hund” 

2 -Gemuese: DATA "Kohl” 

5 -Baum: DATA ’’Eiche” 

4 INPUT "WERT (1-3) : ”;Wert 

5 ON Wert RESTORE Tier, Gemuese, Baum 

6 READ Text$ 

V PRINT Texts 


ON TIMER ... GOSUB 

Typ: Befehl 

Syntax: ON TIMER <num. Ausdruck> GOSUB {<Marke> 1 0} 

ON TIMER <Zeit in sec> GOSUB {<Marke> 1 0} 

Erklanutg: Das durch <Marke> definierte Unterprogramm, wird alle <Zeit> 

Sekunden angesprungen. Wird als Sprungziel Null angegeben wird die 
Zeitgeberiiberwachung wieder abgeschaltet. Achten Sie darauf, dafi Ihr 
Unterprogramm nicht zuviel Zeit in Anspruch nimmt. Benotigt im 
Extremfall Ihr Unterprogramm mehr Zeit als das von Ilmen eingestellte 
Intervall, so wird es sofort nach Beenden erneut aufgerufen und es 
bleibt keine Zeit mehr zur Ausfiihrung des eigentlichen Programms. 
HINWEIS: Fiir compilerte Programme gilt: Das Unterprogramm sollte 
keine Stringverarbeitung enthalten! 

Beispiei: 0 MODE ”D” 

1 ON TIMER .5 GOSUB Uhr 

2 FOR 1=1 TO 1E+7 : NEXT ’ hier kSnnte Ihr Hauptprogramm 

stehen 

5 END 
4 ’ 

5-Uhr 

6 PRINT CHRS(27) + ’T’+@(0,0)+TIME$+” 

”+DATE$+CHRS(27)+”k”; 


7 RETURN 
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ON TRON GOSUB 

Typ: Befehl 

Syntax: ON TRON GOSUB {<Marke> 1 0) 

Erkla mn g: Wenn mittels TRON der Trace-Modus aktiviert wurde, wird vor jedem 

Befehl in das durch <Marke> gegebene Unterprogramm verzweigt. Die 
normale Protokollfunktion des Trace-Modus wird abgeschaltet und 
karrn stattdessen durch ein intelligenteres Unterprogamm ersetzt 
werden, das nur bestimmte Dinge ausgibt oder auch Variableninhalte 
priift. ffierzu haben die Systemvariablen ERR, ERR$ und ERL im TRON- 
Unterprogramm eine besondere Bedeutung: ERR$ liefert den nun 
auszufuhrenden Befehl als Hartext, ERL die Nummer der Zeile, die 
gerade ausgefiihrt wird. ERR enthalt die interne Tokennummer, die 
nicht weiter von Bedeutung ist (entspricht dem Befehl in ERR$). Um sich 
einen Uberblick zu verschaffen probieren Sie das Beispiel einmal aus. 
Es lafit das Programm im Einzel-Schritt -Modus ablaufen und zeigt den 
zugehorigen Befehl am oberen Bildschirmrand an. 

Wenn statt einer Marke eine Null an gegeben wird, ist wieder die 
normale Protokoll-Funktion des Trace-Modus aktiviert. 

HINWEIS: Im Compilat existert ein entsprechender Befehl nicht. Enthalt 
ein Programm Befehle fur Trace-Unterprogramme, werden diese vom 
Compiler ignoriert. 

Beispiel: 0 ON TRON GOSDB Trace: IRON 

1 REPEAT 

2 PRINT I 

3 I+=3 

4 UNTIL I >5 

5 END 

6 -Trace 

7 PRINT CHRt(27) ; ” j";@(0,0) ;ERR8 ; ” ”;ERL;” Taste 

driicken , . . ” ; 

8 PRINT CHRt(27);”K”;CHRI(27);”k”; 

9 REPEAT UNTIL LEN(INKEYl): RETURN 


OPEN 

Typ: Befehl 

Syntax: OPEN <Stringausdruck>,<num.Ausdruck>,<Stringausdruck>[,<num. 

Ausdruck>] 

OPEN <Mode-Kennung>,<Dateinummer>,<Dateiname> [,<Satzlange/ 
Attribute>] 
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Erklanmg: 


OPEN offnet eine Datei. Die ein Zeichen lange Mode-Kennung 
charakterisiert die Art der Datei, die geoffnet werden soil. OMIKRON. 
Basic verwaltet bis zu 16 gleichzeitig offene Dateien. Die Dateinummer 
mufi deshalb zwischen 1 und 16 liegen und dient bei alien weiteren 
Datei -Operationen als Erkennungsmerkmal (Handle), welche Datei 
gemeint ist. 

Der Dateiname enthalt den Namen der Datei, wobei wieder entweder 
nur der Name, ein kompletter Pfad Oder ein relativer Pfad verwendet 
werden konnen. 

Die verschiedenen Modi im einzelnen - zunachst eine Ubersicht: 


« J»» 

"Input” 

Sequentielle Datei; nur zu lesen 

”0” 

"Output” 

Sequentielle Datei; nur zu schreiben 
loscht eine bereits bestehende Datei 

"A” 

"Append” 

Sequentielle Datei; nur zu schreiben 
an eine bestehende Datei wird angefiigt 

”R" 

"Random” 

Random-Access-Datei; lesen und schreiben 
feste Satzlange; Verwendung von 
PIELD/PUT/GET 

”U” 

"User” 

Random-Access-Datei; lesen und schreiben 
keine feste Satzlange; Verwendung von 
PUT/GET/SEEK 

>>F” 

"Files” 

Inhaltsverzeichnis eines Laufwerks Oder 
Pfades lesen. 


"Printer” 

offnet. einen Kanal auf den Drucker 

”V” 

”V24” 

offnet einen Kanal auf die RS232- 
Schnittstelle . 

"M” 

"MIDI” 

offnet einen Kanal auf die MIDI- 
Schnittstelle . 

"K” 

"Keyboard” 

ist seit der Version 3-5 nicht mehr 
vorhanden . 


Zunachst zu den drei sequentiellen Dateimodi "Input", "Output” und 
"Append". Mogliche Schreib-Lese-Funktionen: PRINT #, WRITE #, 
INPUT #, INPUT$(,) Oder LINE INPUT #. Desweiteren konnen EOF und 
LOF ermittelt werden. WICHTIG: Um eine Datei mit "Append" zu offnen 
mufi diese bereits bestehen, ansonstenwird einFehler ausgelost. 

Die Random-Access-Datei vom Typ “R“ benotigt als zusatzlichen 
Parameter die Satzlange. Wird keine Satzlange angegeben so gilt die 
voreingestellte Satzlange von 128. Vor jedem Schreib- oder 
Lesevorgang mufi mittels FIELD eine oder mehrere Puffervariablen 
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definiert werden. GET und PUT lesen bzw. schreiben dann einen 
beliebigen Datensatz. Der erste Datensatz hat die Nummer 1. Wird ein 
Satz geschrieben, der noch nicht innerhalb der Datei existierte, so wird 
die Datei automatisch verlangert. LOF ermittelt die Dateilange in Satzen. 

ergibt die Nummer des letzten gelesenen oder geschriebenen 
Satzes. EOF zeigt an, ob ein weiterer Satz zum Lesen bereitsteht. 

Die "User" Datei benotigt keine Angabe der Satzlange. Man kann 
beliebige Datenmengen lesen oder schreiben. Die Vereinbarung einer 
Puffervariablen entfallt, man schreibt/liest mit PUT/GET direkt einen 
Speicherblock oder einen String. Zusatzlich kann der Schreib-Lese- 
Zeiger mit SEEK neu positioniert werden. LOF ergibt die Dateilange in 
Bytes. LOC ergibt die Position des Schreib-Lese-Zeigers in Byte 
(beginnend mit 0). EOF zeigt an, ob ein weiteres Byte zum Lesen 
bereitsteht. 

Eine "Inhaltsverzeichnisdatei" dient zum Auslesen eines 
Inhaltsverzeichnisses eines Laufwerk oder eines Pfades. Dabei kann 
der Dateiname eine Jokerauswahl enthalten z.B. “C:\*.BAS". Als 
zusatzlicher Parameter mufi eine Kennzahl fiir die gewiinschten 
Dateiattribute angegeben werden. Diese Kennzahl setzt sich wie folgt 
zusammen: 

+ 1 fiir schreibges chutzte Dateien 

+2 fiir verborgene Dateien 

+4 fur Systemdateien 

+8 fiir Diskettenname 

+ 16 fiir Ordner 


Wenn also nur "normale" Datei gesucht werden lautet die Kennzahl null, 
verborgene und Systemdateien dazu: sechs. Sollen nur Ordner gesucht 
werden: 16. Ein Verzeichniseintrag wird immer mit GET 

<Dateinummer>,0 geholt, zuvor sollte man mit EOF(<Dateinummer>) 
sicherstellen, dafi noch ein weiterer Eintrag vorhanden ist. Urn den 
Verzeichmseintrag auswerten zu konnen, sollten einige Puffervariablen 
gemafl folgendem Schema definieren: 

FIELD < Date imimmer> ,21,1 AS Attt,2 AS Timl,2 AS Datl,4 AS 

Lenl.14 AS Namel 

Der Aufbau entspricht genau dem Aufbau der sogenannten DTA 
(Betriebssystem-Struktm). Zu beachten ist, dafi Name$ in der Regel 
noch Null-Zeichen (CHR$(0)) enthalt, die eventuell ab gespalten 
werden miissen (z.B. wenn Strings verkettet werden sollen). 

Die Datei-Modi, welche die Schnittstellen des Rechners ansprechen 
funktionieren analog zu sequentiellen Datei. Es wird eben von der 
betreffenden Schnittstelle gelesen bzw. auf ihr ausgegeben. Besonders 
niitzlich ist dies in Zusammenhang mit dem CMD-Befehl. Man kann so 
z.B. auf einfache Weise alle Bildschirmausgaben iiber PRINT auf den 
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Drucker umlenken. (siehe CMD). Funktionen wie LOF, LOC Oder EOF 
sind bei Datei (Kanalen), die sich auf Sclmittstellen beziehen nicht 
erlaubt. 


OR 

Typ: Operator 

Syntax: <num.Ausdruck> OR <num.Ausdruck> 

Erklarang: Verkniipft die beiden numerischen Ausdriicke logisch oder. 

Beispiel: 0 PRINT BIN$(%1010 OR *1100) 

1110 


OUTLINE 


Typ: 

Syntax: 

Erklarang: 


Beispiel: 


Befehl 

OUTLINE {ON | OFF} 

Die Aufienlinie (Umrahmung) aller gefullten Rechtecke, Kreise usw. 
konnen Sie mit diesem Kommando an- Oder ausschalten Ein Beispiel 
macht dies wohl am besten deutlich: 

0 CIS: FILL COLOR=0 

1 Fill STYLE =2, 4 

2 OUTLINE OFF: PCIRCLE 100,100,80 
5 OUTLINE ON: PCIRCLE 200,100,80 


PALETTE 

Typ: Befehl 

Syntax: PALETTE [<num.Ausdruck>],[[,<num.Ausdruck>]] 

PALETTE [<Farbregister 0>],[[,<Farbregister 1>]] 

Erklarang: Setzt eine neue Farbpalette. Die Farbwerte werden der Reihe nach 

direkt in die Register des Video -Bausteins geschrieben. Ein Farbwert 
setzt sich zusammen aus einer dreistelligen hexadezimalen Zahl, wobei 
jede Hex-Ziffer die Farbsattingung von Rot, Griin und Blau angibt. $772 
steht also fiir weiB, $700 fur Rot usw. 

WICHTIG: Da dieser Befehl die Videohardware des ATARI ST voraus- 
setzt und mit anderen Grafiksystemen nicht zusammenarbeitet, ist er in 
hochstem Mafie inkompatibel und sollte daher nicht verwendet werden. 
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Stattdessen sollte der entsprechende VDI-Befehl zum Einsatz kommen: 
Vs_Color(<Farbnummer>,<R>,<G>,<B>). 

Die Farbsattigung wird hier allerdings in 1/1000 angegeben und ist 
somit unabhangig von den Fahigkeiten der Videohardware. 


PBOX 

Typ: Befehl 

Syntax: PBOX <num.Ausdruck>,<num.Ausdruck>{ TO <num.Ausdruck>,<num. 

Ausdruck> | ,<num.Ausdruck>,<num.Ausdruck>} 

PBOX <X>,<Y>{ TO <X2>,<Y2> | <Breite>,<Hohe>} 

Erklarnng: Zeichnet ein gefiilltes Rechteck auf den Bildschirm. Dabei sind 

entweder zwei gegeniiberliegende Ecken anzugeben, Oder eine Ecke, 
Breite und Hohe des Rechtecks. Gefiillt wird mit der durch FILL COLOR 
definierten Farbe und dem durch FILL STYLE definierten Fiillstil. 

Die Umrandung ist unabhangig von den Einstellungen durch LINE 
STYLE und LINE WIDTH immer eine durchgezogene, ein Pixel breite 
Lime. Die Farbe entspricht der Fiillfarbe Die Umrandung kann mit 
OUTLINE OFF aus- bzw. OUTLINE ON eingeschaltet werden. 

Ist mittels CLIP ein Bildfenster definiert, wird auCerhalb dieses 
Bereiches nicht gezeichnet. 

Siehe auch PRBOX, BOX, RBOX. 


PCIRCLE 

Typ: Befehl 

Syntax: PCIRCLE <num.Ausdruck>,<num.Ausdruck>,<num.Ausdruck>[,<num. 

Ausdruck>,<num.Ausdruck>] 

CIRCLE <X> , <Y>,<Radius> [, <Startwinkel> ,<Endwinkel>] 

Erklarnng: Zeichnet um den Mittelpunkt X,Y einen gefiillten Kreis mit dem 

angegebenen Radius. Optional konnen Start- und Endwinkel in 
Zehntel-Graden angegeben werden. Hierbei ist Winkel=0 rechts vom 
Mittelpunkt, Winkel=900 oberhalb des Mittelpunkts etc. 

Gefiillt wird mit der durch FILL COLOR definierten Farbe und dem 
durch FILL STYLE definierten Fiillstil. 

Die Umrandung ist unabhangig von den Einstellungen durch LINE 
STYLE und LINE WIDTH immer eine durchgezogene, ein Pixel breite 
Linie. Die Farbe entspricht der Fiillfarbe. Die Umrandung kann mit 
OUTLINE OFF aus- bzw. OUTLINE ON eingeschaltet werden. Ist mittels 
CLIP ein Bildfenster definiert, wird aufierhalb dieses Bereiches nicht 
gezeichnet. Siehe auch PELLIPSE, CIRCLE, ELLIPSE. 
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PEEK 

Typ: Funktion 

Syntax: PEEK(<num.Ausdruck>) 

Erklarung: Liest an der durch numerischen Ausdruck gegebenen Adresse ein Byte. 

Siehe auch WPEEK, LPEEK, POKE, WPOKE, LPOKE. 


PELLIPSE 

Typ: Befehl 

Syntax: PELLIPSE <num.Ausdruck>,<num.Ausdruck>,<num.Ausdruck>,<num. 

Ausdruck>[,<num.Ausdruck>,<num.Ausdruck>] 

PELLIPSE 

<X>,<Y>,<X-Radius>,<Y-Radius>[,<Startwinkel>,<Endwinkel>] 
Erklarung: Zeichnet um den Mittelpunkt X.Y eine Ellipse mit den angegebenen 

Radien. Optional konnen Start- nnd Endwinkel in Zehntel-Graden 
angegeben werden. Hierbei ist Winkel=0 rechts vom Mittelpunkt, 
Winkel=900 oberhalb des Mittelpunkts etc. 

Gefiillt wird mit der durch FILL COLOR definierten Farbe und dem 
durch FILL STYLE definierten Fiillstil. 

Die Umrandung ist unabhangig von den Einstellungen durch LINE 
STYLE und LINE WIDTH immer eine durchgezogene, ein Pixel breite 
Linie. Die Farbe entspricht der Fiillfarbe. Die Umrandung kann mit 
OUTLINE OFF aus- bzw. OUTLINE ON eingeschaltet werden. 

Ist mittels CLIP ein Bildfenster definiert, wird auBerhalb dieses 
Bereiches nicht gezeichnet. 

Siehe auch PCIRCLE, ELLIPSE, CIRCLE. 


PI 

Typ: Funktion 

Syntax: PI 

Erklarung: Ergibt die Kreiszahl Pi als doppelt genaue-Flieflkomma-Zahl. 

Beispiel: 0 PRINT PI 


5.1415926555897952 
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POINT 

Typ: Funktion 

Syntax: POINT(<num.Ausdruck>,<num.Ausdruck>) 

POINT(<X>,<Y>) 

Erklarung: POINT liefert den Farbwert eines bestimmten Punktes. 

POKE 

Typ: Befehl 

Syntax: POKE <num.Ausdruck>,<num. Ausruck> 

POKE <Addresse>,<Wert> 

Erklarung: Legt Wert an der gegebenen Adresse als ein Byte ab. 

Der Wert mufi zwischen 0 und 2S5 liegen. 

Siehe auch WPOKE, LPOKE, PEEK, WPEEK, LPEEK. 

POLYGON 

Typ: Befehl 

Syntax: POLYGON <Feld> 

Erklarung: Zeichnet ein Polygon (beliebiges n-Eck). Die Daten der Eckpunkte 

miissen in einem zweidimensionalen Variablenfeld vorliegen. 

Beispiel: 0 DIM Pts%( 1,10) 

"1 READ Anzahl_Pnnkte 
2 FOR 1=0 TO Anzahl_Punkte 
5 READ Pts%(0,I),pts%(1,I) 

4 ’ Pts%(0, I )= I-ter Koordinaten-X-Wert 

5 ’ Pts%( 1 , I) = I-ter Koordinaten-Y-Wert 

8 NEXT I 

9 CIS: POLYGON Pts%(0,Anzahl_Punkte ) 

10 DATA 6, 50,75, 150,125, 200,100 

11 DATA 150,74, 50,125, 50,75 

Bitte beachten Sie: Das Variablenfeld fiir POLYGON mufi ein Integer - 
Word-Feld sein, das auf (1,X), X=Anzahl der maximalen Punkte, 
dimensioniert wurde. Alles andere funktioniert nicht. 
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POS 

Typ: Funktion 

Syntax: POS (<num.Ausdruck>) 

Erklarung: Ergibt die Spalte, in der sich der Cursor gerade befindet. Die 

Spaltenzahlung beginnt bei 0. Der Parameter ist ohne Bedeutung. 

Siehe auch CSRLIN, LOCATE, 

Beispiel: PRINT ”X”*10, POS(0) 

xxxxxxxxxx 16 


PPOLYGON 

Typ: Befehl 

Syntax: PPOLYGON <Feld> 

Erklarung: Zeichnet ein Polygon wie bei POLYGON, jedoch ausgefullt mit einem 

Muster. 


PRBOX 

Typ: Befehl 

Syntax: PRBOX <num.Ausdruck>,<num.Ausdruck>{ TO <num.Ausdruck> ,<num 

Ausdruck> | ,<num.Ausdruck>,<num.Ausdruck>} 

PRBOX <X>,<Y>{ TO <X2>,<Y2> | <Breite>,<Hohe>} 

Erklarung: Zeichnet ein gefiilltes Rechteck mit abgerundeten Ecken auf den 

Bildschirm. Dabei sind entweder zwei gegeniiberliegende Ecken 
anzugeben, Oder eine Ecke, Breite und Hohe des Rechtecks. 

Geflillt wird mit der durch FILL COLOR definierten Farbe und dem 
durch FILL STYLE definierten Fullstil. 

Die Umrandung ist unabhangig von den Einstellungen durch LINE 
STYLE und LINE WIDTH immer eine durchgezogene, ein Pixel breite 
Linie. Die Farbe entspricht der Fullfarbe. Die Umrandung kann mit 
OUTLINE OFF aus- bzw OUTLINE ON eingeschaltet werden 
Ist mittels CLIP ein Bildfenster definiert, wird aufierhalb dieses 
Bereiches nicht gezeichnet. 

Siehe auch PBOX, RBOX, BOX. 
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PRINT 


Typ: 

Syntax: 


Erklarung: 


Beispiel: 


Befehl 

PRINT [[<Ausdruck>] [,[[<Ausdruck>]<Treraiung>]...] 

<Ausdruck<: TAB(<num Ausdruck>) 

USING[ [<Stringausdruck>] 

<num.Ausdruck> Oder <Stringausdruck> 

<Trennung> : , Oder ; 

Der PRINT Befehl dient zur Ausgabe von Ergebnissen am Bildschirm. Er 
kann liber den CMD Befehl auch auf andere Ausgabegerate umgelenkt 
werden. Die Ausgabe lafit sich auf verschiedene Weise tabulieren: 
Trcruiung bzw. Enden auf: 

Komma: der Cursor geht zur nachsten Tabulatorposition (8er Spalte) 
Semikolon: der Cursor bleibt an der letzten Schreibpositon 
Wenn am Ende der PRINT Anweisung weder Komma noch Semikolon 
erscheinen, wird automatisch ein Zeilenvorschub ausgegeben. 

Eine weitere Tabuliermoglichkeit bietet der TAB Befehl. Der Cursor 
riickt immer auf die angegebene Tabulierspalte vor. 1st diese Spalte 
durch friihere Ausgaben bereits iiberschritten, so wird die Cursor- 
Position nicht verandert. Siehe auch LPRINT, WRITE, PRINT# 

0 PRINT 1,2,3 

1 PRINT 1,2, 

2 PRINT 3 

3 PRINT TAB (10) ;1; TAB (20) ;2 


PRINT# 


Typ: 

Syntax: 


Erklarung: 

Beispiel: 


Befehl 

PRINT # [[<Ausdruck>] [,[[<Ausdruck>]<Trennung>]...] 

Siehe PRINT 

Genauso wie PRINT dient auch PRINT # der Ausgabe. Es wird auf die 
durch Dateinummer bestimmte Datei ausgegeben. Siehe PRINT. 

0 OPEN ”0”,1 , ’’C:\TEST.DAT” 

1 PRINT #1,1, 2, 3 

2 PRINT #1 ,4,5,6 

3 CLOSE 1 
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PRINT @ 


Typ ; 

Syntax: 


Erklamng: 


Beispiel: 


Befehl (PRINT) + Funktion (@) 

PRINT @(<num. Ausdruck>,<num.Ausdruck>); 

PRINT @(<Zeile>,<Spalte>); ... 

Ausgabe und Syntax wie bei PRINT. Zusatzlich wird eine Startzeile und 
eine Startspalte angegeben, bei der die Ausgabe beginnt. Die Zahlung 
fur Zeile und Spalte beginnt bei Null. 

Grundsatzlich liefert die @(<Zeile>,<Spalte>)-Funktion einen String, der 
liber PRINT ausgegeben den Cursor an die entsprechende Position 
setzt. Diese Funktion kann daher iiberall da erscheinen, wo eine 
beliebiger anderer String hatte stehen konnen. Sie findet z.B. auch in 
Verbindung mit INPUT Verwendung! 

0 FOE 1=0 TO 20 

1 PRINT @(I, 2*1);”*” 

2 NEXT I 


PRINT USING 


Typ: 

Syntax: 

Erklarong: 


Befehl 

PRINT USING <Stringausdruck'> ... 

PRINT USING <Formatstring> ... 

PRINT USING dient zur formatierten Zahlenausgabe. Alle Tabulier- 
moglichkeiten und die gesamte Syntax wie bei PRINT. Zusatzlich kann 
an jeder Stelle der USING Befehl gefolgt von einem Steuerstring 
auftauchen. Die im Steuerstring getroffenen Formatanweisung gelten 
dann solange fiir jede numerische Ausgabe, bis ein neues USING 
Kommando auftaucht Oder der PRINT Befehl zu Ende ist. 


Formatierungsmoglichkeiten: 

” (t ” steht fiir eine Ziffer 

” , ” Dezimal-Punkt an dieser Stelle 

” j ” Dezimal Kornma an dieser Stelle 

» » i. ” » Dezimal-Punkt wo angegeben; Tausender mit 
trennen 

Dezimal- Komma wo angegeben; Tausender mit 
trennen 


” ” Tausender mit , trennen; keine Nachkommastellen 

» _ " Tausender mit . trennen; keine Nachkommastellen 

» - » Wenn negativ, Minuszeichen an dieser Stelle 

” + ” Vorzeichen immer an dieser Stelle ausgeben 

(auch +) 
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Hinweis: 


WICHTIG: 


Beispiel: 


Ausnahme zu +/-: Steht das + Oder - direkt vor demersten#, *, . oder 
Komma, so wird das Vorzeichen direkt vor der ersten 
giiltigen Stelle ausgegeben. 

“*<Zeichen>" vorderes Fiillzeichen festlegen. Das _ (underline) darf 
nicht Fiillzeichen sein. Nicht benutzte Ziffernstellen 
(also #-Zeichen etc.) werden normalerweise als 
Leerzeichen ausgegeben. Mit z.B. "*0“ werden diese 
Ziffernstellen als Nullen ausgegeben, d.h., man 
erreichteine Ausgabe mit fiihrenden Nullen. 

"_<Zeichen>" gibt das Zeichen aus, auch wenn es sich um ein 
Zeichen handelt, das normalerweise eine Bedeutung 
fur den Formatstring hatte. gibt beispielsweise ein 
aus; dieses ist daher kein Platzhalter fiir eine 
Ziffer. 

Exponent steht an dieser Stelle (erzwingt 
Exponentialdarstellung) 

Alle weiteren Zeichen werden so ausgegeben, wie sie sind. 

Wenn Sie fiir das Vorzeichen nicht extra eine Stelle zuweisen, 
beansprucht es 1 Ziffernstelle fur sich (auch wenn die Zahl positiv 
ist). Die Formatmaske "###" kann daher nur zweistellige Werte 
fassen, da eine Stelle immer fiir das Vorzeichen reserviert bleibt. 
Wenn der auszugebende Wert nicht in die Formatmaske paBt, so wird 
die Maske selbst mit einem "% * am Anfang ausgegeben. 

PRINT USING rundot nicht, die Nachkommastellen werden einfach 
abgeschnitten. 

Einschrankungen bei PRINT USING: 

Sie diirfen nicht mehr als insgesamt 30 Ziffernplatzhalter definieren. Die 
Anzahl der Stellen fiir den Exponenten darf nicht kleiner sein als 4. Das 
Zeichen Underline (_) darf nicht Fiillzeichen sein. Die gesamte Lange 
des Formatstrings darf nicht grofler sein als 253 Zeichen. 

Wenn Sie in einer Zeile, die einen PRINT USING Oder USING -Befehl 
enthalt, einen 9SYNTAX ERROR erhalten, dann konnte das auch an 
einem fehlerhaften Formatstring (etwa: zwei Vorzeichen) liegen. 

0 PRINT USING ”####.##”,1.5 

1 PRINT USING ”# # # # #”,1000 

2 Be trag !=13450. 99 

3 PRINT USING ”**.########,## DM",Betrag! 

4 Betr#=123456789.01# 

5 PRINT USING ”*0### Millionen ### Tausend und ### DM, ## 
PF-”,Betr# 
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PROC 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


PUT 

Typ: 

Syntax: 


Erklarung: 


6 PRINT USING ”##.##### EXP( 10) 

7 PRINT USING ”###### DM” ,FN Round! (Betrag! ,0) 

8 END 

9 DEP FN Round! (Betrag! .Stellen) 

10 LOCAL Scale !=10‘Stellen 

11 RETURN FIX (Betrag! ‘Scale ! + -5)/Scale! 

12 END_FN 


Befehl 

[PROC] <Prozedur-Bezeichner>[(]<Ausdruck>[[,<Ausdruck>]][)] 

Ruft eine selbst definierte Prozedur (siehe DEF PROC) auf. Wie Sie der 
Syntaxbeschreibung entnehmen konnen, ist die Angabe des Wortes 
"PROC" optional, d.h. Sie konnen die Prozedur einfach durch Nennung 
ihres Namens aufrufen. Auch die Angabe der Klammern, die die 
Parameter einschliefien, ist freigestellt. Ein Prozeduraufruf unterschei 
det sich somit kaum von Standard- Befehlen. 

0 Zentriere ”Das ist ein Test” 

1 Home 

2 END 

5 DEF PROG Zentriere (Text$) 

4 PRINT IAB( (W CHAR-LEN( TextS) )/2) ; Texts ; 

5 END_PR0C 

6 DEF PROC Home ’ Cursor in die linke obere Ecke setzen 

7 PRINT CHR$(27);”H”; 

8 END_PR0C 


Befehl 

PUT <num.Ausdruck>,{<num.Ausdruck>[,<num. Ausdruck] | <Stringaus- 
druck> , <num. Ausdruck> } 

1: PUT <Dateinummer>,<Satznummer> 

2: PUT <Dateinummer>,<Speicheradresse>,<Anzahl> 

3: PUT <Dateinummer>,<Stringausdruck> 

Nach Syntax 1 wird ein Datensatz in die durch die Dateinummer 
gegebene Datei geschrieben. 
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Beispiel: 


RAD 

Typ: 

Syntax: 

Erklarung: 


RBOX 

Typ: 

Syntax: 

Erklarung: 


Die Datei mufi zuvor mittels OPEN "R" geoffnet worden sein. 

Die geschriebenen Daten setzen sich aus den in FIELD genannten 
Puf fer vari ablen zusammen. Da die Lange der Puffervariablen nicht 
verandert werden darf, empfiehlt sich die Zuweisung mit LSET Oder 
RSET. 

Nach Syntax 2 bzw. 3 werden die angegebene Anzahl Bytes ab der 
Speicheradresse bzw. der gegebene Stringausdruckin die mit 
Dateinummer genannte Datei geschrieben. 

Die Datei mufi zuvor mit OPEN "U" geoffnet worden sein. 

0 OPEN ”U”,V’BILD1 .DAT” 

1 XBIOS Adr,3 ’ Adresse des Bildschirms ermitteln 

2 PUT 1, Adr, 32000 ’Bildschirmdaten in die Datei 


3 CLOSE 1 


schreiben 


Befehl 

RAD 

Schaltet fur trigonometrische Funktionen auf Berechnung nach 
Bogenmafi um (0 bis 360). Dies ist auch die Standardeinstellung Siehe 
auch DEG. 


Befehl 

RBOX <num.Ausdruck>,<num.Ausdruck>{ TO <num.Ausdruck>,<num. 
Ausdruck> | ,'.num.Ausdruck>,<-num.Ausdruck>} 

RBOX <X>,<Y>{ TO <X2>,<Y2> | <Breite>,<Hohe>} 

Zeichnet ein nicht gefiilltes Rechteck mit abgerundeten Ecken auf den 
Bildschirm. Dabei sind entweder zwei gegeniiberliegende Ecken 
anzugeben, oder eine Ecke, Breite und Hohe des Rechtecks. 
Linienfarbe, Linienstil und Linienbreite konnen fiber LINE COLOR, 
LINE STYLE, bzw LINE WIDTH bestimmt werden. 

Ist mittels CLIP ein Bildfenster definiert, wird aufierhalb dieses 
Bereiches nicht gezeichnet. 

Siehe auch BOX, PRBOX, PBOX. 
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READ 

Typ: Befehl 

Syntax: READ <Variable>[[,<Variable>]] 

Erklarung: Der Variable wird eine durch DATA definierte offene Zuweisung 

iibergeben. Die offenen Zuweisungen werden der Reihe nach gelesen. 
Der Zeiger, der auf die nachste zu lesende Zuweisung zeigt, kann jedoch 
mit RESTORE verschoben werden. 

Die Zuweisung eines Stringausdrucks an eine numerische Variable oder 
umgekehrt ist unzulassig. 

Beispiel: 0 DATA "Hund”,AS,"Maus”,A$ 

1 Inh=2 

2 READ AS 

3 READ B$ 

4 PRINT A$ ,BS 

5 RESTORE 8 

6 READ CS,A 

7 PRINT CS,A 

8 DATA ”Katze”,23*Inh 

Hund Hund 

Katze 46 

REGISTER 

Typ: Dieses Wort ist reserviert. Bitte nicht verwenden! 

REM 

Typ: Befehl 

Syntax: REM cbeliebiger Text> 

Erklarung: Durch REM abgetrennte Texte werden vom Basic nicht beachtet und 

dienen nur dem Programmierer zur Erlauterung oa. 

Im Gegensatz zu das an jeder Stelle im Programm stehen kann (auBer 
in durch " " eingeschlossene Teile), mufi REM entweder am Zeilen 
anfang oder hinter einem Befehlstrenner stehen. Ein Befehlstrenner ist in 
der Regel ein aber auch ELSE. ENDIF, THEN, WHILE, REPEAT sind 
Befehlstrenner. Der Rest dieser Zeile ist dann als Kommentartext 
gekennzeichnet. Befehle, die in einer Zeile hinter einem REM stehen, 
werden als Kommentar angesehen und nicht ausgefiihrt. 
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RENUM 


Typ: 

Syntax: 


Erklarung: 


Befehl 

RENUM [<num.Ausdruck>],[<num.Ausdruck>][,<num.Ausdruck>] 
RENUM [<neue Zeilennummer>],[<Startzeile>][,<Schrittweite>] 

Weist den Programmzeilen eine neue Zeilennummer zu. Gezahlt wird, 
wenn nicht durch Schrittweite angegeben, in Einer-Schritten. Optional 
kann die Zeilennummer angegeben werden, an der die 
Neunummerierung beginnen soil, und die erste neue Programmzeile. 
Auch Sprunganweisungen (GOTO) und Unterprogrammaufrufe 
(GOSUB) werden entsprechend angepafit. 


REPEAT 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Befehl 

REPEAT 

Leitet die REPEAT-UNTIL Schleife ein. Alle was zwischen REPEAT und 
UNTIL steht wird solange ausgefiihrt bis die Bedingung hinter UNTIL 
erfullt (<>0) ist. Da die Bedingung erst am Ende des ersten Durchlaufs 
geprtift wird, muli die Schleife mindestens einmal durchlaufen werden, 
selbst wenn die Bedingung nie erfullt war. 

Durch Angabe einer nie erfiillten Bedingung (die Null) kann die 
REPEAT-UNTIL Schleife auch als Endlosschleife verwendet werden, 
die nur mit EXIT verlassen werden kann. 

0 REPEAT 

1 I+ = 1 

2 PRINT I 

3 UNTIL I>4 

4 REPEAT 

3 INPUT ’’Geben Sie eine Zahl ein:”;Zahl 

6 Summer =Zahl 

7 IF Zahl=0 THEN EXIT 

8 UNTIL 0 

9 PRINT Summe 


RESERVED 


Typ: 

Syntax: 


Funktion 

RESERVED(<num.Ausdruck>) 
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Erklarung: RESERVED ermoglich den Zugriff auf interne Speicherbereiche des 

Interpreters bzw. Compilers. Insbesondere ergibt RESERVED(O) den 
Riickgabewert (das Register DO) des letzten Maschinenprogramms, das 
mit CALL aufgerufen wurde. 

Ein weiteres wichtiges Flag wird iiber RESERVED(4) erreicht. Setzt man 
dieses Flag mit "POKE RESERVED(4),1", so wird im Compilat eine 
INPUT USING Anweisung abgebrochen. Der Riickgabewert lautet in 
diesem Fall -3. 

Die Funktion RESERVED sollte im allgemeinen nicht verwendet werden! 
Beispiel: 0 ON TIMER 10 GOSDB Tim 

1 INPDT ”Sie haben 10 sec .Sekunden Zeit:”;EingabeS 

USING ”a0m\Ret,50,P 

2 PRINT 

3 IF Ret = -3 THEN PRINT ”Zu lange gewartet” 

ELSE PRINT EingabeS 

4 END 

5 -Tim 

6 POKE RESERVED(4) , 1 

7 RETURN 


RESTORE 


Typ: Befehl 

Syntax: RESTORE [<Marke>] 

Erklarung: Der Zeiger, der auf die nachste durch READ zu lesende offene 

Zuweisung zeigt, wird verschoben. Er zeigt auf die erste durch DATA 
definierte offene Zuweisung, die hinter der <Marke> erscheint. 

RESTORE alleine verschiebt den Zeiger auf die erste iiberhaupt im 
Programm erscheinende offene Zuweisung. Dort steht der Zeiger auch 
zu Programmbeginn. 

Beispiel: 0 DATA "Katze” , ”Maus” 

1 DATA ’’Hund" , ’’Mans” 

2-Bleistift 

3 DATA ’’Radiergummi” 

4 READ AS : PRINT AS , 

5 RESTORE 5-4 'Sprungziel berechnet, siehe GOTO 

6 READ B$ : PRINT B$ , 

7 RESTORE Bleistift 

8 READ CS: PRINT CS 
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9 RESTORE 

10 READ Dt,E»,F|: PRINT D|,EI,FS 

Katze Hund Raaiergummi 

Katze Maus Hund 


RESUME 

Typ: Befehl 

Syntax: RESUME [{NEXT | <Marke>}] 

Erklarnng: RESUME beendet eine mit ON ERROR definierte Fehlerroutine. Der 

Befehl, der den Fehler ausgelost hat, wird erneut ausgefiihrt. Bei 
RESUME NEXT wird die Zeile, in der der verursachende Befehl stand, 
iibersprungen und in der darauffolgenden fortgefahren. Soil das 
Programm an anderer Stelle fortgesetzt werden, so ist auch die Angabe 
einer Sprungmarke moglich. RESUME mit Sprungmarke verlaflt keine 
Strukturen oder Unterprogramme, die Spnmgmarke muB also immer in 
derselben Hierachieebene liegen in der auch der Fehler erfolgte. 
Beispiel: 0 ON ERROR GOTO Fehler 

1 PRINT 1/0 

2 PRINT LN(-1) 

3 END 
4-Fehler 
9 MOUSEON 

6 FORM_ALERI (1,”[2][”+ ERR I +”|in Zeile”+ STRI( ERL 

) + ’’][ Nochma 1 1 We iter | Abbruch ] ” , F_But ) 

7 MOUSEOFF 

8 IF F_But=1 THEN RESUME 

9 IF F_But=2 THEN RESUME NEXT 
10 IF F_But=3 THEN RESUME Fatal 
11 -Fatal 

12 PRINT ’’Fataler Fehler erzwang Programmabbruch:” 

13 PRINT ERRI in Zeile”; ERL 

14 END 


RETURN 


Typ: 


Befehl 
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Syntax: RETURN [<Ausdruck>] 

Erklarung: RETURN verlafit eine Prozedur Oder ein Unterprogramm. RETURN mit 

Angabe eines Ausdrucks verlafit eine mehrzeilige Funktion und gibt 
den Ausdruck als Funktionswert zuriick. Der Programmablauf wird an 
der S telle fortgesetzt, von der aus der Aufrnf erfolgt ist. Wird ein 
RETURN ausgefuhrt ohne dafi ein Aufruf erfolgte, so wird ein "RETURN 
without GOSUB" ausgelost. 

Prozeduren konnen (und sollten) auch mit END_PROC abgeschlossen 
werden, wobei pro Prozedur allerdings nur ein END_PROC verwendet 
werden sollte, damit Anfang und Ende einer Prozedur klar definiert 
sind. 

Ebenso steht fur Funktionen der Befehl END_FN zu Verftigung. Dieser 
steht nur als Ende der Funktionsdefinition und gibt selbst keine Werte 
zuriick. Trotzdem sollte er stets verwendet werden, urn das Ende einer 
Funktion (speziell mit mehreren Ausgangen) klar zu kennzeichnen. 
RETURN darf nicht innerhalb einer Struktur wie REPEAT-UNTIL, FOR- 
NEXT, WHILE- WEND oder SELECT-CASE aufgerufen werden. Es mufi 
vielmehr immer zuerst die Struktur per EXIT verlassen und dann mit 
RETURN zuriickgesprungen werden. 

Beispiel: 0 PRINT FN Fib (10) 

1 END 

2 DEF FN Fib(N) 

5 IF N > 2 THEN 

4 RETURN FN Fib(N-1)+FN Fib(N-2) 

5 ELSE 

6 RETURN 1 

7 ENDIF 

8 END_FN 

55 


RIGHTS 

Typ: Funktion 

Syntax: RlGHT$(<Stringausdruck>,<num.Ausdruck>) 

Erklarung: Ergibt einen Teilstring des Stringausdrucks mit der durch den 

numerischen Ausdruck gegebenen Lange. Der Teilstring endet am 
letzten Zeichen des Stringausdrucks. 

Ist der numerische Ausdruck grofier als die Lange des String- 
Ausdrucks, so wird der gesamte String zuriickgegeben. 

Siehe auch LEFTS, MIDI 




Beispiel: 0 At=”OMIKRON. Software” 

1 PRINT RIGHTS (At, 8) 

Software 


RMDIR 

Typ: Befehl 

Syntax: RMDIR <Stringausdruck> 

RMDIR <Dateiname> 

Erklarung: Entfernt einen Ordner, vorausgesetzt darin sind weder Dateien noch 

Unterordner enthalten. 


RND 

Typ: Funktion 

Syntax: RND(<num.Ausdruck>) 

Erklarung: Ergibt eine Zufallszahl in Abhangigkeit vom numerischen Ausdruck: 

0 : Letzte Zufallszahl wiederholen 

1 : Wert von einschlieBlich 0 bis ausschlieBlich 1 
sonst: ganzzahliger Wert zwischen 0 und dem numerischen 

Ausdruck, wobei der numerische Ausdruck nicht 
erreicht wird. 

Beispiel: PRINT RND (10) 

?? (Zufallszahl) 

RSET 

Typ: Befehl 

Syntax: RSET < String Vanable>=<Stnngausdruck> 

Erklarung: Der Stringausdruck wird rechtsbiindig in String-Variable eingesetzt 

ohne dafi deren Lange verandert wird. Hierzu wird der Stringausdruck 
vorne abgeschnitten Oder durch Leerzeichen erganzt. 

Siehe auch LSET. 

0 A$= SPACES (20) 


Beispiel: 



155 


RUN 

Typ: 

Syntax: 

Erklarnng: 


Beispiel: 


SAVE 

Typ: 

Syntax: 

Erklarnng: 


1 RSET A8=’’0MIKR0N” 

2 PRINT ;A$ ; 

* OMIKRON* 


Befehl 

RUN [<Stringausdruck>] [,<Marke>] 

RUN [<Dateiname>] [,<Marke>] 

RUN startet das aktuelle Basic -Programm. Alle Variablen werden 
geloscht und alle Strukturen des Programms gepriift. Das Programm 
kanri nur gestartet werden, wenn die Strukturprufung erfolgreich 
beendet wurde, ansonsten erscheint eine Fehlermeldung. 

Mit der Angabe einer Marke kann man bestimmen, ab welcher Position 
im Programmtext das Programm gestartet wird. 

Wird ein Programmname hinzugefiigt, so wird zunachst das neue 
Programm geladen und dann gestartet. Das aktuelle Programm wird 
zuvor ohne Sicherheitsabfrage geloscht. 

RUN Test ’ startet ab der Marke ’’Test” 

RUN 20 ’ startet ab Zeile 20 

RUN ’’DEMO” ’ ladt und startet das Programm ’’DEMO. BAS” 


Befehl 

SAVE [<Stringausdruck>][,A] 

SAVE [<Dateiname>][,A] 

Das aktuelle Basic-Programm wird unter Dateiname gesichert. 1st kein 
Dateiname angegeben, so wird der alte Name benutzt. Das Programm 
kann auch als ASCII-Datei gespeichert werden, dann mufi ,A 
angegeben werden. Siehe auch LOAD. 

Wenn im Vollbildeditor die Option fur automatisches Backup angewahlt 
ist, erhalt eine auf dem gleichen Pfad befindliche Datei mit gleichem 
Namen (altes Programm) die Extension .BAK. Ein altes BAK wird dann 
geloscht. 
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SCREEN 

Typ: Befehl 

Syntax: SCREEN <num.Ausdruck> 

SCREEN <Bildschirmnummer> 

Erklarang: Der SCREENbefehl reserviert Speicher fiir einen neuen Bildschirm. Auf 

diese Weise kbnnen mehrere Bildschirme von einem Programm 
abwechselnd benutzt werden. Mogliche Bildschirmnummern sind 1-2. 
Bildschirm 0 ist der Bildspeicher, der vom Programm und vom Direkt- 
Modus benutzt wird. Normalerweise wird nur der Textaufbau des 
Bildschirms 0 vermerkt, so dafi ausgegebene Graphiken beim Wechsel 
in den Full-Screen-Editor verloren sind. Wenn Sie mit SCREEN 0 nun 
zusatzlich einen graphischen Bildspeicher einrichten, so werden auch 
alle Graphikausgaben beim Umschalten in den Direkt-Modus 
restauriert. 

SCREEN 1 bzw. 2 reserviert Speicher fiir einen weiteren Bildschirm, den 
z.B. nur das Programm benutzt. Alle Ausgaben und Testausdrucke, die 
im Direkt-Modus getatigt wurden bleiben dadurch erhalten imd 
bringen auch den Bildaulbau des Programms nicht durcheinander (der 
Direkt-Modus benutzt immer Bildschirm 0). 

Beispiel: 0 LIBRARY Gem, ”\GEM.LIB” 

1 SCREEN 1 

2 Appllnit 
5 STOP 

4 ApplExit 

5 END 

Das GEM-Programm mit eigenem Bildschirmspeicher bricht in Zeile 2 
ab und kehrt in den Direkt-Modus zuriick. Im Direkt-Modus koimen 
nun zu Testzwecken Eingaben getatigt werden, ohne dafi dies den 
Bildaufbau des Programms beeinflufit (z.B. "LIST"[Return]). 

Durch gleichzeitiges Driicken beider Shift-Tasten kann man voriiber- 
gehend einen Blick auf das Schirmbild des Programms werfen. Mit 
CONT wird wieder in Bildschirm 1 umgeschaltet und das Programm 
fortgesetzt. 

Gegeniiber friiheren Basic -Versionen sind weitere Parameter als die 
Bildschirmnummer beim Screenbefehl nicht zugelassen. Speicher fiir 
die zusatzlichen Bildschirme wird selbstandig beim ersten Verwenden 
des SCREEN-Befehls reserviert (Speicherverbrauch: 32000 Bytes bei 
ST-Auflosungen, 153600 Bytes bei TT-Auflosungen). Bei Graphikkarten 
und Grofibildschirmen errechnet sich der Speicherverbrauch 
entsprechend aus "Breite x Hohe x Anzahl Farbebenen”. 
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SEC 

Typ: 

Syntax: 

Erklarang: 

Beispiel: 


SECH 

Typ: 

Syntax: 

Erklarang: 

Beispiel: 


SEEK 

Typ: 

Syntax: 

Erklarang: 


Der Speicher wird vom GEMDOS Speicher entnommen. Es mufi also 
mit CLEAR fur gesorgt werden, dafi ausreichend Speicher frei ist, sonst 
wird mit "OUT OF MEMORY' abgebrochen (siehe CLEAR). 

Beim nachsten CLEAR wird der Speicher automatisch wieder 
freigegeben. 

Der SCREEN-Befehl schaltet nicht die logische Oder gar physikalische 
Bildschirmadresse um, sondern kopiert per BITBLT hin und her. Auf 
diese Weise ist die voile Kompatibilitat gewahrleistet. 


Funktion 

SEC(<num.Ausdruck>) 

Berechnet den Secans des numerischen Ausdrucks. Das Ergebnis ist 
abhangig vom eingestellten Winkelmodus (siehe DEG, RAD). 

RAD : PRINT SEC( .5) 

1.139W9 


Funktion 

SECH(<num.Ausdruck>) 

Berechnet den Secans Hyperbolicus des munerischen Ausdrucks. 

PRINT SECH ( 1 ) 

.64805427 


Befehl 

SEEK <Dateinummer> , <Position>[,<Modus>] 

Mit dem SEEK-Befehl setzen Sie den internen Dateizeiger fur 
Userdateien. Der nachste PUT- Oder GET-Befehl schreibt bzw. liest 
dann ab dieser Position in der Datei. <Modus> hat folgende Bedeutung 

Modus Bedeutung 

keiner Keine Modusangabe entspricht Modus 0 
0 Die angegebene Position bezieht sich auf den Dateianfang. 
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Die Position ist relativ zur aktuellen Position gemeint. 

Auch negative Werte sind hier moglich (z.B. setzt -5 den 
Dateizeiger 5 Positionen zuriick) 

Die Position bezieht sich auf das Dateiende. Nur negative 
Werte oder 0 sind hier erlaubt. 


SEGPTR 


Typ: 

Syntax: 

Erklarung: 


Funktion 

SEGPTR 

Die Funktion SEGPTR liefert einen Zeiger auf eine interne Tabelle, die 
wiederum Zeiger auf verschiedene - vom Basic-Interpreter verwaltete - 
Speicherbereiche enthalt. Die Benutzung dieser Zeiger sollte dem 
Spezialisten vorbehalten bleiben. 

Offset Speicherbereich 
- 12 B ASEPAGE des Interpreters 

0 Zeilen-Nummern-Tabelle 

4 Start des BASIC-Programmes 

8 Variablenpointer-Tabelle 

12 Variablen-Tabelle 

16 Reserviert 

20 Arrays 

24 Dateibuffer 

28 Strings 

32 Frei 

36 Programm-Zeiger zeigt auf den gerade ausgefiihrten 

Befehl 

40 Garbage-Top 

44 Garbage-Bottom 

48 Garbage-High 

52 Stack-Maximalwert (unterhalb davon noch IK fur das 

Betriebs system) 

56 Stack-Bottom 

60 Hochste Speicheradresse des BASIC (einstellbar mit 

CLEAR) 
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SELECT ... CASE ... END_SELECT 

Typ: Befehl 

Syntax: SELECT <Ausdruck> <Fall>[<Fall>...]{OTHERWISE | DEFAULT}... 

END_SELECT 

mit <Fall>: CASE...[TO...] [{CONTINUE |EXIT)...[{CONTINUE| EXIT}..]]... 

Erklanmg: Mit SELECT wird die SELECT-CASE Anweisung eingeleitet. Der hinter 

SELECT stehende Ausdruck wird ausgewertet und auf eine Integer - 
Zahl abgebildet. Bei Stringausdriicken sind nur die ersten vier Zeichen 
von Belang. Abhangig von diesem einmal ermittelten Wert wird in die 
folgenden CASE-Teile verzweigt. Der Ausdruck wird nur einmal zu 
Beginn bewertet, d.h. wenn er spater noch einmal modfiziert wird, hat 
dies keine Auswirkungen mehr auf die SELECT-CASE Verzweigungen. 

CASE Ieitet innerhalb einer SELECT-CASE Anweisung eine Teilzweig 
ein. Dieser Programmzweig wird dann ausgefiihrt, wenn eine der 
genannten Moglichkeiten auf den bei SELECT genannten Ausdruck 
zutrifft. Mehrere Moglichkeiten werden einfach mit Kommata 
abgetrennt aufgezahlt. Falls ein aufeinanderfolgender Bereich an 
Werten zutreffen soli, wird dieser mit TO verbunden. (z.Bsp.: CASE "A" 
TO “Z”'priiftaufA,B,C,...,Y,Z) 

CONTINUE innerhalb einer SELECT-CASE-Anweisung iibergeht 
jeweils die nachste CASE-Bedingung und fiihrt das Programm hinter 
dem CASE weiter aus. 

Beispiel fur CONTINUE: 

0 A$=”Q” 

1 SELECT AS 

2 CASE ”Q” 

5 PRINT ”Das Zeichen war ein Q" 

4 CONTINUE 

5 CASE ”0" TO ”9” 

6 PRINT ”Das Zeichen war eine Ziffer” 

7 END_SELECI 


Das Zeichen war ein Q 
Das Zeichen war eine Ziffer 


Innerhalb einer SELECT-CASE Anweisung wird mit DEFAULT Oder 
OTHERWISE der Programmzweig eingeleitet, der ausgefiihrt werden 
soil, wenn keine der anderen Alternativen zutraf. Der DEFAULT- Zweig 
mufi immer die letzte Moglichkeit innerhalb der SELECT-CASE 
Anweisung sein. Ein weiteres CASE darf nicht folgen. 
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Beispiel: 


SGN 

Typ: 

Syntax: 

Erklarnng: 


Beispiel: 


SHL 

typ: 

Syntax: 

Erklarnng: 


END_SELECT schliefllich beendet eine SELECT-CASE Anweisung. 
Wenn alle moglichen Alternative!! aufgezahlt sind, wird die SELECT - 
Anweisung mit END_SELECT abgeschlossen. 

0 INPUT "Wert 1-3 : ”;Wert 

1 SELECT Wert 

2 CASE 1 

3 PRINT ”Der Wert war eins” 

4 CASE 2 

5 PRINT ”Der Wert war zvei” 

6 CASE 3 

V PRINT ”Der Wert war drei” 

8 DEFAULT 

9 PRINT ”Es sind nur Werte zwischen 1 und 3 zuge lessen” 

10 END_SELECT 

11 END 


Funktion 

SGN( <num. Ausdruck> ) 

SGN( X ) 

Die Signum-Funktion liefert: 

- 1 fUr X < 0 

0 fur X - 0 

1 fiirX>0 

PRINT SGN(7), SGN (- 6 ) , SGN(0) 
1 -1 0 


Operator 

<num.Ausdruck> SHL <num.Ausdruck> 

<num. Ausdruck> SHL <Anzahl> 

Verschiebt bitweise nach links. Die hochstwertigsten Bits gehen 
verloren. Im niederwertigsten Bit wird eine Null nach geschoben. 
Anzahl mufi zwischen 0 und 63 liegen sonst wird ein "Illegal function 
call" ausgelost. 
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Beispiel: 


SHR 

Typ: 

Syntax: 

Erklarang: 


Beispiel: 


SIN 

Typ: 

Syntax: 

Erklarang: 


SINH 

Typ: 

Syntax: 

Erklarang: 

Beispiel: 


SHL vermittelt eine vorzeichenlose Integer -Multiplikation mit 
Zweierpotenzen ("X SHL Y" entspricht "X*(2 A Y)"). 

PRINT 4 SHL 2,1 SHL 10 
16 1024 


Operator 

<num.Ausdruck> SHR <num.Ausdruck> 

<num.Ausdruck> SHR <Anzahl> 

Verschiebt bitweise nach rechts. Die niederwertigsten Bits gehen 
verloren. Im hochstwertigen Bit wird eine Null nach geschoben. Anzahl 
muB zwischen 0 und 63 liegen sonst wird ein “Illegal function call" 
ausgelost. 

SHR vermittelt eine vorzeichenlose Integer-Division durch 
Zweierpotenzen ("X SHR Y 1 entspricht ''X\(2 A Y)") 

PRINT 81 SHR 2,64 SHR 1 

20 32 


Funktion 

SIN(<num.Ausdruck>) 

Berechnet den Sinus des numerischen Ausdrucks. Das Ergebnis ist 
abhangig vom eingestellten Winkelmodus (siehe DEG, RAD). 


Funktion 

SINH(<num.Ausdruck>) 

Berechnet den Sinus Hyperbolicus des numerischen Ausdrucks. 

PRINT SINH(10) 


11013.233 
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SORT 


Typ: 

Syntax: 


Erkldtnng: 


Be it pi el: 


Befehl 


SORT [ASC] <Feldbezeichner>(<num.Ausdruck>) [TO 
<F eldbezeichner>([ <num. Ausdruck>])] 

SORT [ASC] <Feldbezeichner>(<Minimum>) [TO 
<Feldbezeichner>(<Anzahl>)] 


SORT sortiert ein eindimensionales Feld. Die Feldelemente werden in 
aufsteigender Reihenfolge angeordnet. Bei Stringfeldem wird streng 
nach DIN 5007 sortiert, d.h. Grofi- und Kleinschreibung bleibt 
unberucksichtigt. Alle Umlaute werden wie die ausgeschriebenen 
Buchstabenkombinationen behandelt (A = AE, O = OE ...). Wenn nur 
nach ASCII- Werten sortiert werden soil, ist der Zusatz ASC anzugeben. 

Folgt hinter dem SORT-Befehl ein TO mit einem weiteren 
Feldbezeichner, so wird dieses Feld mit umsortiert. Auf diese Weise 
konnen Indexfelder einfach verwaltet werden. 


Anzahl gibt die Zahl der Elemente an, die sortiert werden sollen. Wird 0 
angegeben Oder der Anzahlparameter ganz weggelassen, so wird das 
gesamte Feld sortiert. 


0 DIM Werte(10) 

1 FOB 1=0 10 10 

2 Werte(I)= RND(10) 
5 NEXT I 


4 ’ 


5 SORT Werte(0) ’ 0 = Alles 

6 ’ 

7 FOR 1=0 TO 10 

8 PRINT Werte(I) 

9 NEXT I 


Bttisptel: 0 DIM Textei(ll) 

1 ’ 

2 REPEAT 

5 INPUT "beliebiger Text [Return] ->ENDE : ”;Textet(N) 

4 IF LEN(Textel(N))=0 THEN EXIT 

5 N+=1 

6 UNTIL N>10 

7 ’ 

8 SORT Textet(N) 

9 ’ 

10 FOR 1=0 TO N 
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11 PRINT TexteS(I) 

12 NEXT I 


SPACES 

Typ: Funktion 

Syntax: SPACE$(<num.Ausdruck>) 

Erklarung: Ergibt einen mit Leerzeichen (CHR$(32)) geftillten String mit der durch 

den numerischen Ausdruck gegebenen Lange. Die Funktion ist 
identisch zu SPC. 

Siehe auch STRING$. 

Beispiel: PRINT ;SPACE|(14) ; 

* * 


SPC 

Typ: Funktion 

Syntax: SPC(<num.Ausdruck>) 

Erklarung: Ergibt einen mit Leerzeichen (CHR${32)) geftillten String mit der durch 

den numerischen Ausdruck gegebenen Lange. Die Funktion ist 
identisch zu SPACE$. 

Siehe auch STRINGS. 

Beispiel: PRINT ;SPC( 14) ; 


SQR 

Typ: Funktion 

Syntax: SQR(<num.Ausdruck>) 

Erklarung: Berechnet die Quadratwurzel des numerischen Ausdrucks. Der 

numerische Ausdruck mufi ein positiver Wert sein. 

Beispiel: PRINT SQR ( 2 . ) , SQR ( 2 * ) 


1.4-142136 


1 .414213562373095 
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STEP 

Erklarung: 

STOP 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


STR$ 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Schrittweite bei FOR-Schleifen. Siehe FOR 


Befehl 

STOP 

STOP bricht die Programmausfiihrung mit der Fehlermeldung "?Break 
in ..." ab. Der Interpreter schaltet automatisch in den Direktmodus. Es ist 
nun moglich beliebige Befehle direkt auszufiihren, um so z.B. 
Variableninhalte (DUMP), bestimmte Feldelemente Oder 
Speicherbereiche zum Zweck der Fehlersuche anzuschauen. Auch ein 
Wechseln in den Voilbildeditor ist moglich. Das Programm kann 
jederzeit mit CONT wieder fortgesetzt werden, solange das Programm 
nicht geandert wurde. 

Siehe auch CONT. 

0 REPEAT 

1 IF RND( 20) >18 THEN STOP 

2 Count+=1 

3 UNTIL 0 ’ endlos 

? Break in 1 


Funktion 

STR$(<num.Ausdruck>) 

STR$ wandelt den numerischen Ausdruck in einen String um. STR$ ist 
also das Gegenstiick zu VAL. Bei der Umwandlung werden alle mit 
USING getroffenen Einstellungen beachtet. Der erzeugte String sieht 
also genauso aus, wie das, was PRINT USING <num. Ausdruck> 
ausgeben wiirde. 

STR$ wandelt immer ins Dezimal-Format, gegebenenfalls in 
Exponentialdarstellung. Zur Wandlimg in andere Zahlensysteme 
verwenden Sie HEX$, OCT$ Oder BIN$. 

Siehe auch VAL, USING, HEX$, OCT$, BIN$. 

0 Pi$=STR$(PI) 

1 USING ” DM ###.##” 

2 BetragS=STR8(12.121 ) 
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5 USING ’ abschalten 
4 PRINT Pit, Be tragi 

3.1415926535897932 DM 12.12 


STRINGS 


Typ: 

Syntax: 


Erklarang: 


Beispiel: 


Funktion 

STRING$(<num.Ausdruck>,{<num.Ausdruck> | <Stringausdruck s }) 
STRING$(<Anzahl>, {ASCII-Code | <Stringausdruck>} 

Erzeugt einen String der Lange Anzahl, in dem das durch String- 
Ausdruck oder seinem entsprechenden ASCII-Code (siehe ASCII 
Tabelle) gegebene Zeichen entsprechend oft vorkommt. Es gilt nur das 
erste in Stringausdruck vorkommende Zeichen. Siehe auch SPACES, 
SPC, *. 

PRINT STRINGS (10,”*”), STRINGS (10,240) 


********** 


SWAP 


Typ: 

Syntax: 

Erklarang: 


Beispiel: 


Befehl 

SWAP <Variable>,<Variable> 

Vertauscht die Inhalte der beiden gegebenen Variablen. Die beiden 
Variablen mtissen identischen Variablentyps sein. Ein Tausch einer 
Feldvariable mit einer nicht-Feldvariable ist nur beim Typ Integer- 
Langwort erlaubt. 

0 A=10:B=20 

1 SWAP A,B 

2 PRINT A,B 


20 10 


SYSTEM 


Typ: 

Syntax: 


Befehl 

SYSTEM 
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Erklarung: 


Beispiel: 


TAB 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


TAN 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


TANH 

Typ: 

Syntax: 


Verlafit OMIKRON.Basic und kehrt zum aufrufenden Programm zuriick. 
Vor der tatsachlichen Ausfiihrung wird der Benutzer aufgefordert, den 
Befehl zu bestatigen. Enthalt diese Sicherheitsabfrage den Zusatz 
"Changes will be lost” so wurde das aktuelle Programm noch nicht 
gesichert. Wenn Sie trotzdem fortfahren ist die letzte Anderung bzw. das 
aktuelle Programm verloren. 

SYSTEM 

Quit BASIC - Changes will be lost - sure (Y/N)? 


PRINT-Funktion 

TAB(<num.Ausdruck>) 

Diese Funktion tabuliert Ausgaben von PRINT, LPRINT oder PRINT #. 
Der numerische Ausdruck gibt die neue Ausgabespalte an auf die der 
Schreibzeiger vorriickt. Es werden soviele Leerzeichen ausgegeben, bis 
die gewiinschte Spalte erreicht ist. 

Siehe auch SPC, PRINT. 

0 PRINT TAB(10) ;”10. Spalte”;IAB(25) ;”25. Spalte" 

1 PRINT TAB (10) ; 1 .256; TAB (25) ;5 -6589 

10. Spalte 25. Spalte 

1-256 5.6589 


Funktion 

TAN(<num.Ausdruck>) 

Berechnet den Tangens des numerischen Ausdrucks. Das Ergebnis ist 
abhangig vom eingestellten Winkelmodus (siehe DEG, RAD). 

RAD: PRINT TAN (PI / 8) 

.41421556257509505 


Funktion 

TANH(<num.Ausdruck>) 
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Erklarung: Berechnet den Tangens Hyperbolicus des numerischen Ausdrucks. 

Beispiel: PRINT TANH( . 5 ) 

.46211716 


TEXT 


Typ: 

Syntax: 


Erklarung: 


Beispiel: 


Befehl 

TEXT <num.Ausdruck>,<num.Ausdruck>,<Stringausdruck>[,<num. 
Ausdruck>,<num.Ausdruck>,<num.Ausdruck>] 

TEXT <X> , <Y > , <Ausgabetext> [ , <Breite> , <Wortflag> ,<Buchstabenflag> ] 
Dieser Befehl gibt einen formatierten Grafik-Text. Die Koordinaten X 
und Y erlauben pixelgenaues Positionieren des Textes. Die Koordinaten 
beziehen sich immer auf die linke untere Ecke des Textes. 

Wenn Textbreite und Formatflags mit angegeben sind, wird je nach 
Einstellung zusatzlich Formatiert. 1st mindestens eines der beiden Flags 
auf eins gesetzt so werden Wort- Oder Buchstabenzwischenraume 
gedehnt, so dafi ein ausgeglichener Blocksatz entsteht. 

Textfarbe, Stil, Grofie und Ausrichtung konnen ttber TEXT COLOR, 
TEXT STYLE, TEXT HEIGHT bzw. TEXT ROTATION bestimmt werden. 

1st mittels CLIP ein Bildfenster definiert, wird aufierhalb dieses 
Bereiches nicht gezeichnet. 

0 TEXT 10, 23, ’’Dieser lange Satz soil genau in den Kasten 

passen” ,420,1 ,0 

1 BOX 9,9,422,18 

2 PRINT : PRINT 


TEXT COLOR 

Typ: Befehl 

Syntax: TEXT COLOR = <num.Ausdruck> 

TEXT COLOR = <Farbnummer> 
Erklarung: Definiert die Schriftfarbe fur Grafik-Text. 


TEXT HEIGHT 


Typ: 

Syntax: 


Befehl 

TEXT HEIGHT = <num.Ausdruck> 
TEXT HEIGHT = <Hohe in Pixeln> 
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Erklarung: Setzt die Text-Hohe des Grafik-Textes. Die Hohenangabe in Punkten 

wird vom VDI anhand der Hohenangabe im Dateikopf der 
Systemzeichensatze umgerechnet. Eine Punktgrosse von 4 ergibt die 
6x6 Schrift, 6 die 8x8 Schrift,13 die 8x16 Schrift und 26 die 16x32 Schrift 
(standardmaflig nur auf ATARI TT vorhanden). 1st eine passende 
Schriftgrosse nicht direkt als fertiges Pixelmuster verfiigbar, versucht 
das VDI durch Vergofiern oder Verkleinern einer benachbarten 
SchriftgroCe die Liicke zu schliefien. Das Ergebnis zeigt das 
Beispielprogramm: es kann durchaus vorkommen, dafi eine 12 Punkt 
Schrift grofier ist als eine 13 Punkt Schrift. 

Negative Werte stellen die Texthohe mit Hilfe des GEM VDI- Befehls 
vst_point()ein. Dabei werden nur ganzzahlige Vergrofierungen der 
Fonts verwendet. 

Beispiel: 0 FOR Iext_H=2 TO X] 

1 TEXT HEIGHT =Text_H 

2 TEXT 10,Y+5, STR$(Text_H)+” Punkt Textprobe” 

3 Y+=Text_H*2 

4 NEXT Text_H 


TEXT ROTATION 

Typ: Befehl 

Syntax: TEXT ROTATION = <num.Ausdruck> 

TEXT ROTATION = <Winkel> 

Erklarung: Legt den Neigungswinkel fiir Grafiktext fest. Abhangig vom 

Workstationtreiber ist die Einstellung des Winkels nur eingeschrankt 
moglich. Der Standard-Bildschrim-Treiber fiir ATARI ST/TT kann z.B. 
nur 90 Grad-Schritte. Die Winkelangabe erfolgt in 1/10 Grad (d.h. 900 
entspricht 90 Grad). 

Beispiel: TEXT ROTATION = 2700 

TEXT 10,10,”Der Text geht nach unten” 


TEXT STYLE 


Typ: Befehl 

Syntax: TEXT STYLE =<num.Ausdruck> 

TEXT STYLE=<Stil-Attribut> 

Erklarung: Definiert die Stil-Attribute des mit TEXT auszugebenden Grafiktextes. 

Dabei steht jedes Bit in Stil Attribut fiir einen Texteffekt. Ist es gesetzt, 
so wird der Effekt verwendet. Beliebige Kombinationen sind zulassig. 
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Beispiel: 


THEN 

Erklarung: 

TIMES 

Typ: 

Syntax: 

Erklarung: 


TIMES 

Typ: 

Syntax: 

Erklarung: 


Bit 

0 

1 

2 

3 

4 


Wertigkeit 

1 

2 

4 

8 

16 


Effekt 

fett 

hell 

kursiv 

unterstrichen 
outline (UmriBlinie) 


Die TEXT STYLE Einstellung betrifft nur die Ausgaben mit dem Befehl 
TEXT. Auf den Befehl PRINT haben sie keinen Einflufi. 

0 TEXT STYLE = 1 

1 TEXT 10,10,”Dieser TEXT erscheint fett” 

2 TEXT STYLE =4+16 

3 TEXT 10,20, "Dieser TEXT hingegen kursiv & outlined” 


Siehe IF 


Befehl 

TIME$=<Stringausdruck> 

Weist der Systemuhr die Zeit Stringausdruck zu. 

Stringausdruck ist unabhangig vom Landermodus (siehe MODE) 
anzugeben (0 Uhr bis 23:59:59): 

"HH:MM:SS" 

(H=Stunde, M=Minute, S=Sekunde) 

Die mit TIMER ermittelbare Rechner -Laufzeit wird nicht beeinflufit. 


Funktion 

TIMES 

Gibt die Systemuhr in folgender Form als String: 
“HH:MM:SS'' 

(H=Stunde, M=Minute, S=Sekunde) 
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Das Ergebnis ist nicht abhangig vom iiber MODE eingestellbaren 
Landermodus. 


TIMER 

T yP : Funktion 

Syntax: TIMER 

Erklarung: Ergibt die Laufzeit des Rechners seit dem Einschalten in 1/200 stel 

Sekunden. 

Beispiel: 0 T=TIMER 

1 FOR 1=0 TO 100000 

2 NEXT I 

5 PRINT (TIMER-T)/200 
5.675 

TO 

Erklarung: Siehe FOR, SELECT (,BOX, DRAW, NDC) 


TROFF 

Typ: Befehl 

Syntax: TROFF 

Erklarung: TROFF schaltet den TRACE-Modus des Interpreters ab. 

WICHTIG: Innerhalb des Programms kann TRON und TROFF 
geschachtelt werden, d.h. pro Einschaltvorgang durch TRON ist auch 
ein Ausschaltvorgang durch TROFF notwendig. 

Im Direkt-Modus wird durch TROFF der TRACE Modus in jedem Fall 
ausgeschaltet. 

Siehe auch TRON. 


TRON 

Typ: Befehl 

Syntax: TRON 



Erklarung: 


Beispiel: 


TUNE 

Typ: 

Syntax: 


Erklarung: 


Beispiel: 
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TRON schaltet den TRACE-Modus des Interpreters ein. Dadurch wird 
vor der Ausfiihrung eines jeden Befehls die Zeilennummer und der 
Befehl am Bildschirm ausgegeben. Wenn Sie den Programmablauf iiber 
weite Strecken kontrollieren mochten, achten Sie darauf, dafi der 
automatische Zeilenumbruch eingeschaltet ist. Ansonsten staut sich 
quasi die Ausgabe am rechten Bildschirmrand. Den automatischen 
Umbruch aktivieren Sie mit PRINT CHR$(27);V';. 

Wurde mit ON TRON GOSUB ein spezielles TRACE-Unterprogramm 
definiert so wird bei jedem Befehl dieses Unterprogramm durchlaufen. 
TROFF schaltet den TRACE-Modus wieder ab und setzt die normale 
Programmausfiihrung fort. 

WICHTIG: Innerhalb des Programms kann TROFF und TRON 
geschachtelt werden, d.h. pro Schaltvorgang durch TROFF ist auch ein 
Schaltvorgang durch TRON notwendig. 

Siehe auch VT-52-Liste, ON TRON GOSUB, TROFF. 

0 TRON: PRINT CHRl(27) ; ”v” ; 

1 REPEAT 

2 UNTIL LEN(INKEYft) 

3 END 


Befehl 

TUNE 

<num.Ausdruck>,<num.Ausdruk>[[,<mim.Ausdruck>,<num.Ausdruk>]] 
TUNE <Tonkanal>.<Frequenz>[[,<Tonkanal>,<Frequenz>]] 

Den angegebenen Tonkanalen wird die Frequenz zugewiesen. 
Tonkanal mufi ein Wert von 1 bis 3 sein, Frequenz mufi ein Wert von 0 
bis 4095 sein. 0 schaltet den Ton ab, 1 ist der hochste und 4095 der 
tiefste Ton. 

Um den Ton zu horen, mufi den entsprechenden Kanalen mittels 
VOLUME eine Lautstarke zugewiesen werden. 

Siehe auch NOISE. 

0 Conterm=$484 

1 Conterm_Rett= PEEK(Conterm) 

2 POKE Conterm,0 

3 T=0:Dt=1 

4 VOLUME 1,15 

5 REPEAT 

6 TUNE 1,1 

7 I+=Dt 
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UNTIL 


8 IF 1=4095 OR 1=0 THEN Dt*=-1 

9 UNTIL LEN ( INKEYS ) 

10 VOLUME 1,0 

11 POKE Conterm,Conterm_Rett 


Typ: Befehl 

Syntax: UNTIL <log Ausdruck> 

UNTIL vAbbruch-Bedingung> 

Erklarung: Beendet die REPEAT-UNTIL-Schleife. 1st die Abbruch-Bedingung 

nicht erfiillt, so wird die Schleife noch einmal ausgefiihrt. 

Siehe auch REPEAT-UNT1L. 


UNLIST 

Typ: reserviert 


UPPERS 

Typ: Funktion 

Syntax: UPPER$(<Stringausdruck>) 

Erklarung: Wandelt alle im Stringausdruck enthaltenen Buchstaben in grofie 

Buchstaben um. Auch die Umlaute a, o, ti werden gewandelt. 

Gegenstiick zu dieser Funktion ist LOWERS. 


USING 


Typ: Befehl 

Syntax: USING [<Stringausdruck>] 

Erklarung: Stellt das Ausgabeformat fur die Befehle PRINT, LPRINT, PRINT # und 

die Funktion STR$ ein. USING allein ohne Stringausdruck schaltet 
wieder auf normale Ausgabe zuriick. Welche Zeichen der 
Stringausdruck enthalten darf und wie diese wirken sehen Sie bitte 
unter PRINT USING nach. 

[L]PRINT[#] USING wirkt nur voriibergehend, d.h. es zerstort ein 
globales USING nicht. PRINT USING ;xxx schaltet das globale USING 
voriibergehend ab. 
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USR 

Typ: Funktion 

Syntax: USR(<num Ausdruck>) 

Erklarung: Die mit DEF USR definierte Maschinensprachefunktion wird 

aufgerufen. Der Parameter wird im Register DO iibergeben. Der im 
Register DO erhaltene Wert wird als Funktionsergebnis an das Basic- 
Programm zuriickgegeben. 


VAL 

Typ: Funktion 

Syntax: VAL(<Stringausdruck>) 

Erklarung: Der Stringausdruck wird nach Moglichkeit in ein numerisches Ergebnis 

umgewandelt. Dabei wird solange von links nach rechts gelesen, bis 
kein giiltiges Zahlzeichen mehr folgt. Fiihrende Leerzeichen werden 
iiberlesen. 

Giiltige Zahlzeichen sind: $&%01234S6789 + -.DE 

VAL kann durch hinzufiigen der Prefixe "$" Oder "%“ auch zum Wandeln 

zwischen verschiedenen Zahlensystemen benutzt werden (z.B. 1IEX -> 

Dezimal). 

Beispiel: 0 Hex_jn$=”0u+A+B+C+D+E+P” 

1 INPUT ’’Geben Sie eine HEX-Zahl ein : ”;Zahl$ USING 
Hex_In$ , ,2 

2 PRINT 

3 Zahlft= RIGHTS ( "000”+Zahll , 3 ) 

4 PRINT ZahlS ; ”h ist Dezimal: VAL(”S”+Zahlt) 


VARPTR 

Typ: Funktion 

Syntax: VARPTR(<Variable>) 

Erklarung: Die Funktion entspricht exakt dem Adress-Operator & und ermittelt 

einen Zeiger auf die Variable. Bei Feldvariablen haben die Indices keine 
Bedeutung und konnen deshalb entf alien. 

Dieser Zeiger stellt jedoch nicht in jedem Fall direkt die Adresse der 
zugehorigen Variablen dar. Zudem werden Variablen vom interpreter 
und Compiler unterschiedlich verwaltet. Deshalb sollte der Zugriff liber 
diesen Zeiger immer iiber den Zeiger-Operator * erfolgen. Direktes 
Verwenden Oder gar Manipulieren des Zeigers erfordert eine genaue 
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Kenntnis der Speicherverwaltung von Interpreter und Compiler (siehe 
Anhang). 

Praktische Anwendung: Mit VARPTR(MOUSEX) erhalt man die Adresse 
im Speicher, ab der Mauskoordinaten verwaltet werden. Dort konnen 
Sie auch geandert werden. VARPTR wird auch verwendet, um 
Speicheradressen von Strings, Variablen Oder Feldern zu erhalten. 

Beispiel: 0 ’ groBtes Element suchen 

1 DIM Werte#(10) 

2 PRINT FN Get_Max#(VARPTR(Werte#()),5) ’ nur erste 5 

3 END 

4 DEF FN Get_Max#(Pointer,N) 

5 LOCAL I,Maximum#=0# 

6 FOR 1=0 TO N 

7 Maximum#=MAX( ‘Pointer# (I) .Maximum#) 

8 NEXT I 

9 RETURN Maximum# 

10 END_FN 

0 


VDI 

Typ: Befehl 

Syntax: VDJ.(<num.Ausdruck>, <Feldvariable>, <Feldvariable>, <Feldvariable>, 

<Feldvariable>, <FeldvariabIe>) 

VDI(<Funktionsnummer>, <CTRL-Feld>, <INTIN-Feld>, <PTSIN 
Feld>, <INTOUT-Feld>, <PTSOUT-Fetd>) 

Erklarnng: Mit dem Befehl VDI rufen Sie GEM VDI (Graphics Environment 

Manager - Virtual Device Interface) auf. Die einzelnen Funktionen des 
GEM VDI schlagen Sie bitte im Anhang nach. 

Fiir VDI- und AES-Befehle benutzen Sie einfacher die GEM- Oder 
EasyGEM-Library. In der Funktionsnummer sind Flags fiir NDC 
enthalten. Allgemein gilt: VDI ist der GEMLIB vorbehalten. 

VERSION 

Typ: Funktion 

Syntax: VERSION 

Erklarung: Liefert die Versionsnummer des verwendeten Interpreters. 300 steht fiir 
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3.00, 351 fur 3.51 etc. In compilierter Fassung liefert VERSION immer 
einen Wert >=999, da ihr Compiler (hoffentlich) immer Up-to-date ist. 


VOLUME 


Typ: 

Syntax: 


Erklaxung: 


Beispiel: 


Befehl 

VOLUME 

<num.Ausdruk>,{<num.Ausdruck> | <num.Ausdruck>,<num.Ausdruck>} 
VOLUME <Tonkanal>,{<Lautstarke> | <Hiillkurve>,<Intervall>} 

Dem angegebenen Tonkanal wird eine Lautstarke Oder eine Hiillkurve 
und deren Intervall zugewiesen. Tonkanal mufi ein Wert von 1 bis 3 sein, 
Lautstarke von 0 (Ton aus) bis 15 (maximale Lautstarke). 

Wird statt der Laustarke Hiillkurve gegeben, so sind folgende Werte 
moglich: 

8: an, fallend, an, fallend, ... 

9: an, fallend, aus 

10: an, fallend, steigend, fallend, steigend, ... 

11: an, fallend, an 

12: aus, steigend, aus, steigend, ... 

13: aus, steigend, an 

14: aus, steigend, fallend, steigend, fallend, ... 

15: aus, steigend, aus 

Intervall mufi ein Wert zwischen 0 und 65535 sein. Je kleiner Intervall ist, 
desto schneller lauft die Hiillkurve ab. 

Bei Verwendung einer Hiillkurve werden die Lautstarken aller drei 
Tonkanale gleichzeitig gesteuert. 

Bei der Verwendung von Sound-Befehlen sollte der Tastaturklick 
mittels der Betriebsystemvariable comterm abgeschaltet werden. 

0 ConternF$484 

1 Conterm_Rett= PEEK(Conterm) 

2 POKE Conterm,0 

3 V=0 :Dv=1 

4 TUNE 1,1000 

5 REPEAT 

6 WAIT .02 

7 VOLUME 1,V 

8 V+=Dv 

9 IF V=15 OR V=0 THEN Dv*=-1 

10 UNTIL LEN( INKEY# ) 
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WAIT 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


WEND 

Typ: 

Syntax: 

Erklarung: 


WHILE 

Typ: 

Syntax: 

Erklarung: 


Beispiel: 


11 VOLUME 1,0 

12 POKE Conterm,Conterm_Rett 


Befehl 

WAIT <num.Ausdruck> 

Wartet die im numerischen Ausdruck genannte Zeit in Sekunden. Der 
Fehler betragt +/- 1/200 stel Sekunde. 

Die Multitasking-Funktionen ON HELP GOSUB, ON KEY GOSUB ON 
MOUSEBUT GOSUB und ON TIMER GOSUB werden jedoch 
wahrenddessen weiterbearbeitet. 

0 T=TIMER 

1 REPEAT 

2 PRINT ’’Diese Schleife lauft genau 6 Sekunden” 

5 WAIT . 5 

4 UNTIL TIMER >1+200*6 


Befehl 

WEND 

Beendet die WHILE- WEND Schleife. Siehe WHILE -WEND. 


... WEND 

Befehl 

WHILE <num. Ausdruck^ : <Befehle> : WEND 

WHILE <log. Ausdruck> i <abhangige Befehle> : WEND 

Mit WHILE wird eine Programmschleife eingeleitet, die solange, die von 

ihr abhangigen Befehle wiederholt, bis der logische Ausdruck (die 

Bedingung) nicht mehr erftlllt (falsch, gleich 0) ist. Die Bedingung wird 

immer am Anfang der Schleife gepriift, d.h. die WHILE - WEND - Schleife 

ist eine abweisende Schleife. Wenn die Bedingung gleich zu Anfang 

nicht erfiillt ist wird keine der abhangigen Befehle ausgefuhrt und zum 

Ende der Schleife (hinter das WEND) verzweigt. 

0 OPEN ”1” , 1 , ”C: \DESKT0P. INF” 

1 WHILE NOT EOF ( 1 ) 
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2 PRINT INPUTS (1,1) ; 

3 WEND 

4 CLOSE 1 

5 PRINT ’’Bitte geben sie mehrere Worter durch 

Leerzeichen getrennt ein: ” 

6 INPUT Satz$ 

7 P=INSIR(Satz$,” ”) 

8 WHILE P 

9 PRINT ’’Leerzeichen gefunden an Position:”; P 

10 P=INSTR(P,Satz$,” ”) 

11 WEND 


WPEEK 

Typ: Funktion 

Syntax: WPEEK(<num.Ausdruck>) 

Erklarung: Liest an der durch numerischen Ausdruck gegebenen Adresse ein 

Wort. Der numerische Ausdruck mufi eine gerade Zahl sein, da 

sonst ein Bus-Fehler auftritt. Der gelesene Wert wird immer als 
Zweierkomplement-Darstellung einer Integer Wort Zahl aufgefafit und 
liegt im Bereich von -32768 bis +32767. 

Siehe auch PEEK, LPEEK, POKE, WPOKE, LPOKE. 

Beispiel: 0 Speicher=MEMORY(10) 

1 WPOKE Spe iclier, 6FFFF 

2 PRINT WPEEK (Spe icher) 

-1 


WPOKE 

Typ: Befehl 

Syntax: WPOKE <num.Ausdruck>,<num. Ausruck> 

WPOKE <Addresse>,<Wert> 

Erklarung: Legt <Wert> an der gegebenen Adresse als ein Langwort ab. Der 

numerische Ausdruck mufi auf 68000ern (ATARI ST) eine gerade Zahl 
sein, da 

sonst ein Bus-Fehler auftritt. Auf 68030-Prozessorn (ATARI TT) kann 
die Adresse ungerade sein. 
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Der Wert mufi zwischen 0 und 65535 liegen. Negative Werte grofier 

gleich -32768 sind auch zulassig und gelten als Zweier -Reimplement 
(-1=65535, -2=65534, -3=65533, 

Siehe auch POKE, LPOKE, PEEK, WPEEK, LPEEK. 

Beispiel: 0 Speicher=MEMORY( 10 ) 

1 WPOKE Speicher,iPFFF 

2 WPOKE Speicher+2,-1 

3 WPOKE Speicher+4, 65500 


WRITE 


Typ: 

Syntax: 

Erklaxung: 


Beispiel: 


Befehl 

WRITE <Ausdruck>[[,<AusdruCk>]] 

WRITE <Ausgabe>[[,<Ausgabe>]] 

WRITE gibt wie PRINT beliebige Ausdriicke auf dem Bildsehirm «us. 

Stringausdriicke werden in Anflihrungszeichen gesetzt und alle 
Ausgaben durch Kommata getrennt. 

Im Gegensatz zum PRINT- Befehl (s. dort) werden bei diesem Befehl alle 
Zeichen genauso ausgegeben wie Sie sie geschrieben h&beh. 
Anflihrungszeichen, Kommata, Strichpunkte usw. dienen also nleht als 
Trennzeichen, sondern werden direkt ausgegeben. 

0 Test$=”0MIKB0N. Software” 

1 WRITE Test!, PI, 1.23 


"OMIKRON. Software”, 3- 1415926535897932, 1.23 


WRITE# 


Typ: 

Syntax: 

Erklarung: 


Beispiel: 


Befehl 

WRITE #<num.Ausdruck>,<Ausdruck>[[,<AusdrUCk>]] 

WRITE #<Dateinummer>,<Ausgabe>[[,<Ausgabe>]] 

WRITE # gibt - ahnlich wie PRINT # - beliebige numerische Oder 
String-Ausdriicke in eine Datei aus. Die Datei mufi zuvor mit OPEN 
geoffnet worden sein. Im Vergleich zu PRINT # setzt WRITE # alle 
Stringausdriicke in Anflihrungszeichen und trennt alle Ausdriicke 
durch Kommata ab. Das hat besonders beim Schreiben von Dateien, die 
mit INPUT # wieder gelesen werden sollen, grofie VorteUe, 

Siehe auch PRINT #, INPUT # 

0 Te s 1 1 = ”0M IKRON .Software ” 



1 OPEN ”C\1 

2 WRITE #1, lest!, PI, 1.2J 

3 CLOSE 1 
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’’OMIKRON. Software”, 3.1415926535897952, 1.23 


WVBL 

Typ: Befehl 

Syntax: WVBL 

Erklarung: Wartet auf einen Vertical-Blank-Interrupt. 

Die Multitasking-Funktionen ON HELP GOSUB, ON KEY GOSUB, ON 
MOUSEBUT GOSUB und ON TIMER GOSUB werden jedoch 
wahrenddessen weiterbearbeitet. 


W_CHAR 

Typ: Funktion 

Syntax: W_CHAR 

Erlarung: Ergibt die Breite des Bildschirms in Zeichen. Der Wert entspricht den 

Informationen, die vom VDI bei "Inquire Character Cells" geliefert 

werden. Siehe auch H_CHAR. 


W_PIXEL 

Typ: Funktion 

Syntax: W_PIXEL 

Erklanmg: Ergibt die Breite des Bildschirms in Bildpunkten (Pixeln). Der Wert 

entspricht den Informationen, die vom VDI bei V Openvwk geliefert 

werden. Siehe auch H_CHAR und H_PIXEL. 


XBIOS 

Typ: Befehl 

Syntax: XBIOS[(][<num.Variable>],<num.Ausdruck> 

[[,[L ]<num.Ausdruck>]][)] 
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Erklarung: 


Beispiel: 


XOR 

Typ: 

Syntax: 

Erklarung: 

Beispiel: 


XBIOS[(][<Ruckgabe-VariabIe>],<Funktionsnummer>[[, 

[L]<Parameter>]][)] 

Die in Funktionsnummer genannte XBIOS-Funktion wird aufgerufen 
und die Parameter iibergeben. Der Riickgabe-Wert der XBIOS- 
Funktion wird der Ruckgabe-Variablen zugewiesen. Wenn vor den 
Parametern ein "L “ gestellt ist, so wird der Parameter als LONG 
iibergeben, ansonsten immer als WORD. 

Siehe auch XBIOS-Funktionsliste. 

0 PRINT HEXI(FN Logbase) 

1 END 

2 DEF FN Logbase 

3 LOCAL R=0 

4 XBIOS R,3 

5 RETURN R 

6 END FN 


Operator 

<num.Ausdruck> XOR <num.Ausdruck> 

Die beiden Ausdrucke werden bitweise "logisch exklusiv-oder" 
verkniipft. 

0 PRINT BINi( (961010 XOR 961 100) +561 0000) 

10110 
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Farben und Muster 


VDI-Farbe 


Hardware-Farbe 

16 Farb 4-Farb Schwarz- Weiss 


0 

1 

2 

3 

4 
3 
6 
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8 

9 

10 
11 
12 

13 

14 
13 


0 0 

13 3 

1 1 

2 2 

4 
6 


3 

3 

7 

8 


9 

10 
12 
14 
11 
13 


0 

1 
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Dateitypen (Open) 


Der beim OPEN-Befehl angegebene Dateityp gibt an, um was fUr eine Art von Datei es 
sich handeln soli. Als Dateitypen diirfen angegeben werden: 

"I" "Input' 1 Sequentielle (Disketten)datei; nur zu lesen 
Beispiel: OPEN T,l, "A:\DESKTOP.INF" 

MIT INPUT#1,... konnen Sie Daten auslesen, EOF(l) ermittelt, ob das 
Dateiende erreicht ist. 

"O'" "Output" Sequentielle (Disketten)datei; nur zu schreiben 
Beispiel: OPEN " 0",1 , "ADRESSEN.DAT" 

Daten schreibt man mit PRINTffl Oder WRITE#1. 

"A" "Append" wie "Output", fiigt jedoch an eine bereits bestehende Datei an: 

Beispiel: OPEN "A", 1, "ADRESSEN.DAT" 

"R" "Random" Random-Access-(Disketten)datei 

Beispiel: OPEN "R",l, "STAMM.DAT", 142: FIELD 1,... 

Die Zahl 142 ist die "Recordlange" der Datei, also die Lange eines 
Datensatzes. 

Die FIELD-Anweisung legt den Datensatz fest, GET und PUT lesen und 
schreiben Daten, LOF ermittelt die Grofie der Datei. 

“F" “Files" Inhaltsverzeichnis lesen 

Beispiel: OPEN " F",1,"A:\*.*’,63 

Die Zahl 63 ist eine Bitmaske, die angibt, was fur Dateiattribute bei der 
Suche zugelassen werden sollen. Die 63 errechnet sich aus: 

1 fiir schreibgeschiitzte Dateien 

+2 fiir verborgene Dateien 

+4 fiir Systemdateien 
+8 fiir Disk ettenname 
+ 16 fiir Ordner 

+32 fiir Archivbit gesetzt (erst ab TOS 1.04!) 

Mit GET 1,0 wird der nachste Eintrag geholt, mit EOF(l) konnen Sie 
ermitteln, ob der Eintrag giiltig war. (Siehe auch Programm 
“FILES. BAS") 

»p" “Printer" eroffnet eine sequentielle Datei auf den Drucker 
Beispiel: OPEN "P",l 

Man kann nun mit PRINT# 1 auf den Drucker ausgeben. 
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"V" "V24 11 erdffnet eine sequentielle Datei zur RS232-Schnittstelle. 

Beispiel: OPEN 'V',1 

PRINT# 1 schreibt Daten liber die RS232-Schnittstelle, INPUT#1 liest 
DatenvonRS232. 

“M" “MIDI" eroffnet eine sequentielle Datei zur MIDI-Schnittstelle. 

Beispiel: OPEN ’M",l 

"K" “Keyboard" ist nicht mehr vorhanden. Siehe "OPEN". 
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Dateinamen 


Ein Dateiname besteht aus drei Teilen: 

Der Laufwerkname, z.B. A: 

Der Pfadname, z.B. \AUTO\ 

Der Dateiname, z.B. ADRESSEN.DAT 

Der Laufwerkname ist ein Name von "A:" bis "P:“. Wexm Sie Ihn weglassen, so bezieht sich 
die Datei automatisch auf das Standardlaufwerk, also das Laufwerk, von dem aus der 
Interpreter geladen wurde. (Ausnahme: von Laufwerk O: gestartet, setzt 

OMIKRON. BASIC das Standardlaufwerk auf A: Oder auf C: - falls vorhanden - um.) Das 
Standardlaufwerk konnen Sie mit z.B. CHDIR "B:“ umstellen. 

Ist das erste Zeichen des Pfadnamens ein Riickwarts Schragstrich (Sie erreichen ihn mit 
[Alternate]-[Shift]-[\]), so wird vom obersten (Haupt-) Inhaltsverzeichnis ausgegangen, 
ansonsten vom Standardpfad des Laufwerks. Fiir jedes Laufwerk gibt es einen eigenen 
Standardpfadnamen. 

Beispiel: CHDIR ”A:\ADI0”: CHDIR "B:\2ND_W0RD”: CHDIR ”A:” 

Sie befinden sich jetzt (vom Standardpfadnamen her) imOrdner "AUTO". 

Ein Ordnername mit Ruckwarts-Schragstrich bedeutet, der entsprechende Ordner soli 
geoffnet werden. Zwei Punkte mit Ruckwarts-Schragstrich schliefien den Ordner 
wieder: 

CHDIR ” . . \ ” verlafit den Ordner AUTO Ordner 

Der eigentliche Dateiname besteht (genauso wie Ordnernamen) aus bis zu acht Zeichen, 
dann optional eine sog. Extension: ein Punkt und drei weitere Zeichen. Die Extension ist 

normalerweise: 

| .BAS fiir BASIC-Programme 
\ PRG, TOS Oder TTP fur Maschinenprogramme 
II .DOC, TXT fiir Texte, Anleitungen 
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Einstellung der RS 232 - Parameter 


Die Ubertragungsparameter der RS232-Sohnittstelle 
Programm setzen; 


konnen Sie mit folgendem 


100 B19200=0:B9600=1:B4800*2:B3600=}:B2400*4:B2000e5:B1800«6 
110 B1200=7 :B600-8:B300=9: B200=10;B150=11 :B1 34=12 :B1 10=13 ;B75=14 
120 B50=15:Kein_Handshake=0:Xon_Xoff*1:fit8_Cts=2:Beides=3 

1 30 Even=6 :0dd=4 :None=0 : Stopl =8 : St Opl JConuna_5=16 : Stop2=24 
140 Bit8=0:Bit7=32:Bit6=64:Bit5=96 
150 ’ 

160 Baudrate=B300:Handshake=RtsJ3ts:P&rity=Even:StopbitB“8top1 
170 Datenbits=Bit8 
180 ’ 

190 Ucr=Parity+Stopbits+Datenbits 

200 XBI0S( , 13, Baudrate, Handshake, Ucr, -1 , -1,-1) 

210 OPEN ”V24 n ,1 
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Steuerzeichen des VT 52 - Standards 

CHR$( 7 ) Gibt einen Ton aus 

CHR$( 8 ) Cursor eins nach links 

CHR$( 9 ) Cursor vor zur nachsten 8 er Spalte (TAB) 

CHR$( 10 ) Cursor nach unten (Zeilenvorschub) (auch: CHR$(11), CHR$(12)) 

CHR$( 13 ) Cursor an linken Rand (Carriage Return) 

CHRS (27)+"X" wird im folgendcn ESC X genannt. Bei den folgenden 

Steuerzeichenkombinationen handelt es sich um die sogenannten "ESCape Scqucnzcn 

ESC A bewegt den Cursor um eine Zeile nach oben 

ESC B bewegt den Cursor um eine Zeile nach unten 

ESC C bewegt den Cursor um eine Spalte nach rechts 

ESC D bewegt den Cursor um eine Spalte nach links 

ESC E loscht den Bildschirm und stellt den Cursor in die linke obere Ecke 

ESC H stellt den Cursor in die linke obere Ecke 

ESC I bewegt den Cursor um eine Zeile nach oben und schiebt, wenn notig, 

den Bildschirm um eine Zeile nach unten 
ESC ] Rest des Bildschirms loschen 

ESC K Rest der Zeile loschen 

ESC L Zeile einfugen 

ESC M Zeile herausloschen 

ESC Y nl n2 Cursor positionieren; nl = CHR$(Zeile+32), n2 = CHR$(Spalte+32). 

ESC b n Schriftfarbe setzen; n ist CHR$(Farbe). 

ESC c n Hintergrundfarbe setzen; n ist CHR$(Farbe). 

ESC d Bildschirm bis zum Cursor loschen 

ESC e Cursor einschalten 

ESC f Cursor ausschalten 

ESC j Cursorposition speichern 

ESC k gespeicherte Cursorposition abrufen 

ESC 1 Zeile loschen 

ESC o Zeile bis zum Cursor loschen 

ESC p Inversdarstellung ein 

ESC q Inversdarstellung aus 

ESC v Automatischer Uberlauf ein (Cursor ruckt nach 80. Spalte vor in die 

nachste Zeile.) 

ESC w Automatischer Uberlauf aus (Cursor bleibt an 79. Spalte stehen.) 



Die TOS-Fehlermeldungen 


Fehler-Nr. Bcdeutung 

0 Alles in Ordnung, Operation ok. 

1 allgmeiner Fehler 

2 Laufwerk nicht bereit 

3 Befehl nicht bekannt 

4 Priifsummenfehler 

5 Nicht ausfiihrbar 

6 Spur nicht gefunden/Daten defekt/Disk defekt 

7 Bootsektor nicht ok 

8 Sektor nicht gefunden/Daten defekt 

9 Kein Papier mehr 

10 Schreibfehler (Daten defekt) 

11 Lesefehler (Daten defekt) 

12 allgemeiner Fehler 

13 Disk ist schreibgeschiitzt 

14 Disk wurde gewechselt 

16 Diskettenformat nicht bekannt 

16 Sektoren falsch geschrieben (“Verify Error") 

17 Keine Disk im Laufwerk 

18-31 <nicht belegt> 

32 Funktionsnummer ungiiltig 

33 (Programm - ) Datei nicht gefunden 

34 Pfad nicht gefunden 

35 zuviele Dateien offen - eroffnen neuer nicht mehr moglich 

36 Zugriff unmoglich/verboten 

37 Dateikennziffer ("Handle") ungiiltig 

38 <nicht belegt> 

39 nicht genug Speicher iibrig 

40 Kein Speicherblock an dieser Adresse 

41-45 <nicht belegt> 

46 Laufwerksbezeichnung ungiiltig 

47 <nicht belegt> 

48 Umbenennen geht nur mit gleichem Laufwerk 
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Fehler-Nr. 

Bedeutung 

49 

keine weitere Datei vorhanden 

50 57 

<nicht belegt> 

58 

Record ist geschiitzt 

59 

Passender Schutz nicht gefunden 

60-63 

<nicht belegt> 

64 

Bereichsfehler 

65 

Interner GEMDOS-Fehler 

66 

Ungiiltiges Programmdateiformat 

67 

Fehler bei Mshrink/Speicherblock nicht vergrofierbar 
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Tabelle der Fehlermeldungen 

1 Structure too long 

Mehr als 64k Prograinmtext befinden sich zwischen zwei Strukturwortern 
(z.B. FOR.. .NEXT, WHILE..WEND, REPEAT.. UNTIL) 

2 Syntax error 

Irgend etwas stimmt an dem Befehl nicht, den Sie gerade eingetippt haben 
(z.B. Tippfehler). Dabei haben Sie jedoch nicht eine Unmdglichkeit verlangt, 
wie z.B. eine Zahl durch null zu teilen, sondern OMIKRON.BASIC kamt den 
Befehl an sich nicht verstehen. 


3 RETURN without GOSUB 

Das Programm ist auf den Befehl RETURN gestofien, ohne dafl es sich in 
einem mit GOSUB aufgerufenen Unterprogramm befand. Dies passiert z.B. 
dann, wenn Sie Ihre Unterprogrammdefinitionen hinter das Hauptprogramm 
geschrieben haben und Ihr Hauptprogramm nicht mit END o.a. endet. 
Beispiel: 100 GOSUB Eingabe 

110 PRINT ”dreimal”;A;”ist’’;5*A 
900-Eingabe 

510 INPUT”Nenne mir eine Zahl”; A 
520 RETURN 

Dieses Programm lauft nun zuerst einmal korrekt ab, anschlieflend taucht 
aber ein ?RETURN without GOSUB in 620 auf. Denn das Programm ist 
einfach in Ihr Unterprogramm "reingelaufen". Fiigen Sie ein: 

499 END 

Ein anderer haufiger Fehler besteht darin, dafi eine Schleife nicht 
ordnungsgemafi verlassen wurde: 

900 FOR 1=1 TO 100 

510 INPUT ’’ARTIKEL” +STRI ( I ) + ” : ”;A$(I):IF A*(I)=”” THEN GOTO 

550 

920 NEXT I 
950 RETURN 

Schleifen bricht man korrekterweise gar nicht Oder nur mit EXIT vorzeitig 
ab. 

4 Out of DATA 

Ein READ-Befehl findet keine Daten mehr. Abhilfe: Mehr Daten eingeben, 
Uberpriifung auf Daten-Ende in das Programm einbauen Oder nochmal 
abzahlen. 

5 Illegal function call 
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Eine Fmnktion Oder ein Befehl wurde auf eine Art und Weise verwendet, auf 
die sie nicht verwendet werden dart Abhilfe: die Argumente iiberpriifen. 


6 Overflow 

Der F:echenbereich von OMIKRON. BASIC geht bis 5.11E+4931 (S,ll mal 10 
hoch 4931). Wenn Sie diesen Rechenbereich iiberschreiten (z.B. durch PRINT 
2 A 10'0000), wird die ?Overflow-Fehlermeldung ausgegeben. 


7 Out of memory 

Zv/ei Bedeutungen: 

1. kein Speicherplatz mehr. Abhilfe: Variablen-Felder kleiner 

ditnensionieren, ohne RAM - Disk booten, GEMDOS-Speicher verkleinern 
(CLEAR-Befehl). 

2 kein Platz mehr auf dem Prozessor-Stapel. Platz auf dem Prozessor- 
Stapel wird belegt durch: 

- offene Schleifen 

- aufgerufene Unterprogramme 

- aufgerufene Prozeduren Oder Funktionen 

- bestimmte Befehle wie SORT 

Oft tritt dieser Fehler auf, wenn man mit GOSUB in ein Unterprogramm 
springt und dann mit GOTO irgendwo hin springt, ohne dafl ein RETURN 
erfolgt ist, beispielweise: 

10 GOSUB 20 
20 GOTO 10 

Abhilfe: Programm auf oben genannten Fehler iiberpriifen. Falls der Fehler 
durch zu tiefe Rekursion (Selbstaufruf von Funktionen oder Prozeduren) 
entstand, konnen Sie den Stapelplatz mit dem Befehl CLEAR vergroBern 
(siehe dort) 


8 Undefined Statement 

Das gewiinschte Sprungziel existiert nicht Beispiele: 

- GOTO 100 - Zeilennummer 100 gibt's nicht 

Datei_Ausgeben(3,4) - Prozedur Datei_Ausgeben existiert nicht bzw. 
existiert, braucht aber eine andere Anzahl von Parametern 

- LIUST (vertippt, sollfe list heiBen) - Prozedur Liust existiert nicht 

9 Subscript out of irange 

Sie vevwenden ein Element eines Variablen-Feldes, dessen Feldindex 
grofi>er ist, als das Feld dimensioniert ist. 

Beispiel: 10 Dili Al(100) 

20 1=200 :PRINT Al(I) 
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Haufig tritt dieser Fehler auch auf, wenn Sie ein Feld nicht selbst definiert 
haben, sondern es automatisch von OMIKRON.BASIC d imensioniert wurde 
Siehe Befehl DIM. 

10 Duplicate definition 

Sie definieren z.B. eine Prozedur/Funktion zweimal. 

Beispiel: 1000 DEF PROC A(X) 

1010 PRINT CHR 8 ( 27 ) ; CHR$ ( X ) : RETURN 
2000 DEF PROC A ( X ) 

2010 PRINT X;” zum Quadrat ist ”;X'2:RETURN 

Abhilfe: Verniinftige Namen verwenden, dann passiert so etwaa hicht ( s6 
leicht) 

11 Division by zero 

Es wurde versucht, durch null zu teilen. 

12 Illegal direct 

Der gewunschte Befehl darf nicht im Direktmodus ausgefiihrt wordefl. 

13 Type mismatch 

Falscher Variablentyp. Beispiele: 

^ ~ 23 - Einer Zahlenvanablen darf kein Text zugewiesen 

werden 

B$=23 - Einer Textvariablen darf keine Zahl zugewiesen werden 

PRINT 3+"4" - in Serechnungen nicht Zahlen und Texte mischen! 

Q=B(X$) - Als Feldindex sind keine Textvariablen zugelassen 

14 RETURN without function 

Entspricht ?RETURN without COSUB, jedoch ist das Procfratttih hier flight auf 
ein gewohnliches RETURN, sondern auf ein RETURN <Wert> (wie es in meh 
zeiligen Funktionen verwendet wird, siehe dort) gestofien. 

15 String too long 

Die Lange von Zeichenketten (Strings) ist auf 32766 Zeichen begrenzt. 

16 Formula too complex 

Zu komplizierte Berechnuh’g,. die den verffigbarfci Stackplatz sprengt. 
Abhilfe: Formel vereinfachefl. in mehrere Teilberechnuiigen aufteilen, oder 
mit CLEAR (siehe dort) mehr Pfozessor-StapelplatZ reser vieren. 
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17 Can’t contir me 

Nacrh Fehlermeldungen oder nachdem Programmzeilen verandert wurden, 
ist ] cein CONT mehr moglich. 


18 Undefined user function 

Die gewiinschte Funktion wurde nicht definiert. 


19 No RESUME 

Das Programm trifft in einer mit ON ERROR GOTO aufgerufenen 
Fehler behandlungs - Routine auf den END-Befehl oder auf das 
Programmende. Abhilfe: RESUME einbauen oder den Fehler gezielt mit ON 
ERROR GOTO 0 ausgeben (siehe ON ERROR GOTO). 


20 RESUME without error 

Das Programm triff auf RESUME, obwohl es gerade nicht in einer mit ON 
ERROR GOTO aufgerufenen Fehlerbehandlungs-Routine ist. Das passiert 
hauptsachlich, indem (wie bei ? RE TURN without GOSUB erklart) das 
Programm einfach in die Fehler-Routine "hineinlauft". 


21 use EXIT 

In manchen BASIC-Dialekten kann man eine Schleife so verlassen (Zeile 
120): 

100 FOR 1-1 TO 10 

110 INPUT ’’Name ” ; Name 8(1) 

120 IF NameS(I)< >”/” THEN NEXT 

In OMIKRON.BASIC konnen Schleifen nur mit dem Befehl EXIT vorzeitig 
verlassen werden 


22 Missing operand 

Ein Operand fehlt. Beispiele: 

1000 DATA 1,2,3, (nach Komma mufi ein Wert folgen) 

PRINT 3+ (nach Rechertzeichen mufi ein Wert folgen) 

23 Line buffer overflow 

Eine Programmzeile darf bei der Eingabe hochstens 255 Zeichen, beim 
LISTen hochstens 512 Zeichen enthalten Abhilfe: Zeile auftrennen in mehrere 
Zeilen. 

Der Fehler tritt auch dann gerne auf, wenn das Programm mit 
"PROTECT.BAS" (auf der Demodisk) geschiitzt wurde oder wenn es teilweise 
durch Schreib- oder Lesefehler zerstort wurde. 



24 REPEAT without UNTIL 

Eine Schleife wurde mit REPEAT geoffnet, doch es gibt kein zugehbriaeB 
UNTIL. u 

25 UNTIL without REPEAT 

Zu einem UNTIL fehlt das zugehorige REPEAT. 

26 FOR without NEXT 

Eine Schleife wurde mit FOR geoffnet, doch es gibt kein zugehorigeS NEXT. 

27 NEXT without FOR 

Zu einem NEXT fehlt das zugehorige FOR. 

28 IF without THEN or ENDIF 

Zwei Moglichkeiten: 

- Zu einem IF fehlt das THEN 

- Zu einem mehrzeiligen IF fehlt das ENDIF, 

Beispiel: 100 IF Anzahl>Max_Anzahl THEN 

110 PRINI”Die Anzahl ist zu groB” 

120 PRINT”Wahlen Sie eine kleinere Anzahl” 

130 GOTO Eingabe 

Hier fehlt 140 ENDIF, urn das mehrzeilige IF abzuschlieflen. 

29 WHILE without WEND 

Eine Schleife wurde mit WHILE geoffnet, doch es gibt kein ZUgehbriges 
WEND. 

30 WEND without WHILE 

Zu einem WEND fehlt das zugehorige WHILE. 

31 THEN, ELSE or ENDIF without IF or THEN 

Zu einem THEN, ELSE oder ENDIF fehlt das zugehorige IF bzw, zu einem 
ELSE Oder ENDIF fehlt das zugehorige THEN. 

32 <intern verwendet> 

33 Reset 

Sie haben die RESET- Taste hinten am Computer gedriickt. Ihr Programm 
bleibt bei RESET erhalten, jedoch wird ein CLEAR ausgefiihrt, die Variablen 
werden also geloscht. 
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34 Bus error 

Bus-Fehler in einem mit CALL Oder USR aufgerufenen Maschinenprogramm. 


35 Adress error 

Adress-Fehler in einem mit CALL oder USR aufgerufenen 
Maschinenprogramm. 

36 Unknown opcode 

In einem mit CALL oder USR aufgerufenen Maschinenprogramm kommt ein 
unbekannter Maschinenbefehl vor. 


37 Division by Zero 

In einem mit CALL Oder USR aufgerufenen Maschinenprogramm kommt eine 
Division durch Null vor. 

38 - 43 <Nicht belegt> 


44 Out of memory. SAVE or re-CLEAR immedeately 

Dem BASIC-Editor bzw. dem OMIKRON.BASIC ist der interne Speicher 
ausgegangen. Wenn Sie jetzt nicht sofort Ihr Programm speichern, bzw. 
mittels CLEAR mehr Speicher anfordern, kann es zu einem Absturz kommen, 
der den Verlust Ihres Programmes mit sich bringt. 


45 EXIT without structure 

Der Befehl EXIT soil ausgeftihrt werden, obwohl keine Schleife offen und kein 
Unterprogramm aufgerufen ist. 


46 Use EXIT TO in functions 

Mehrzeilige Funktionen konnen nicht mit einfachem EXIT verlassen werden. 
Verwenden Sie stattdessen EXIT TO. 


47 Not regular matrix 

Die Matrix, die Sie mit MAT INV invertieren wollten, war nicht regular, d.h., es 
existiert keine Inverse dazu. 


48 <Nicht belegt> 

49 Bad line number 

Sie haben vor einer Zeile keine Zeilennummer geschrieben, obwohl Sie sich 
im Zeilennummer-Modus befinden. Vgl. auch MODE-Menii, Menupunkt 
"PREFERENCES". 
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SO FIELD overflow 

In einer FlELDAnWeisung wurden zUviel Daten angegeben. 


51 <Intem vetwendet> 

52 Bad file number 

Dateien (Files) dttrfen nur Nutnmern von 1 bis 16 erhalten. 

53 File not found 

Die gewiinschte Datei existiert nicht. 


54 Bad file mode 

Wenn Sie mit OPEN T geoffnete Dateien beschreiben Oder mit OPEN"O n 
geoffnete iesen wollen, Oder wenn Sie random-access- und sequentielle 
Dateien verwechseln, tritt dieser Fehler auf. 


55 File already open 

Eine bereits geoffnete Datei soil nochmals geoffnet werden. Dieser Fehler 
kann z.B. auftreten, wenn Sie aus Versehen versuchen, mehrere Dateien mit 
der gleichen Datei-Nummer Zu offnen, z.B. 

100 OPEN ”I”,1 , ’’Adressen.DAT” 

110 OPEN ”I”,1 , "Lager. DAT” 


56 File not open 

Eine Datei muB geoffnet werden, bevor man sie beschreiben oder aus ihr 
lesen kann. 

57 TOS error #XX 

Das Betriebssystem TOS meldet, dafl Fehler Nr. XX aufgetreten ist. 

Siehe Anhang TOSFehlermeldungen (Seite 196). 

58 File already exists 

Eine Datei gleichen Namens ezisitiert bereits in dem angegebenen 
Verzeichnis. Bevor Sie eine neue Datei offnen konnen, mufl eine Datei 
gleichen Namens gelbscht werden. Der Fehler kann auch auftreten, wenn 
eine Datei schreibgeschiitzt ist und neu eroffnet werden soli. (Zum Bsp. bei 
SAVE) 

59 File type mismatch 

Eine Datei hatte den falschen Typ. Dieser Fehler kann auftreten, wenn Sie ein 
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Programm mittels LOAD einladen wollen, das kein BASIC-Programm ist, 
bzw. ein Programm mittels EXEC starten wollen, das nicht ausfiihrbar ist. 


60 Bad disk 

Die eingelegte Diskette ist defekt. Verwenden Sie eine andere. 


61 Disk full 

Auf der Diskette Oder Harddisk ist nicht mehr geniigend Speicherplatz 
vorhanden, um das Programm Oder die Datei darauf abzuspeichern. Den auf 
einer Diskette noch verfiigbaren Speicherplatz erhalten Sie mit FRE. 

62 Input past end 

Es wurde versucht, iiber das Ende einer (sequentiellen) Datei, also iiber das 
EOF Zeichen hinaus, Daten zu lesen. Abhilfe: Abfrage mit der EOFFunktion 
vor der Eingabe. 


63 Bad record number 

Es wurde versucht, in einer random-access-Datei auf einen Record (Daten- 
satznummer) zuzugreifen, der die Kapazitat des GEMDOS sprengen wurde. 


64 Bad file name 

In Datei-Namen sind einige Zeichen nicht zugelassen: Doppelpunkt, Komma, 
Semikolon, Punkt etc. 


65 Path not found 

Ein Verzeichnis Oder eine Datei wurde nicht gefunden. Vgl. auch "File not 
found" 

66 Direct statement in file 

Ein Programm, das im ASCII-Format vorliegt und mit LOAD eingeladen 
werden soil, enthalt Zeile(n), die keine Zeilennummer enthalten. Abhilfe: 
EDIT. Im Editor mit [Shift]-[F8] das Programm einladen, fehlende 
Zeilennumern einfugen. 


67 Too many files 

Im Inhaltsverzeichnis einer Diskette ist nur Platz fur eine begrenzte Anzahl 
Eintrage. Abhilfe: Programme/Dateien mit dem KILL-Befehl loschen. 

68 Write error 

Beim Schreiben von Daten auf Diskette/Festplatte ist ein Fehler aufgetreten. 
Vermutlich ist die Diskette defekt. 




69 Read error 


Beim Lesen der Daten von Diskette/Festplatte ist ein Fehler aufgetreten. 
Vermutlich ist die Diskette defekt. 


70 Disk write protected 

Die Diskette ist schreibgeschutzt und Sie wollten etwas darauf abspeichern. 
Abhilfe: Schreibschutz entfernen. 


71 Illegal pointer 

Sie versuchen mit dem Operator auf einen falschen Oder nicht- exist enten 

Pointer zuzugreifen. Vermutlich haben Sie die falsche Zeigervariable 
verwendet, Oder diese noch nicht mittels &-Operator eingerichtet, z.B. 

CLEAR 

A=*T 

? Illegal pointer 

72 Illegal SELECTCASEStructur 

Bie haben eine fehlerhafte SELECT-CASE-Struktur in Ihrem Programm. 
Wahrscheinlich fehlt das END_SELECT bzw. das DEFAULT Oder Sie haben 
eine falsche Strukturtiefe. Abhilfe: Bei jeder neuen Struktur etwas emriicken; 
dadurch wird das Programm iibersichtliaher und Sie sehen sofort, wo eine 
Struktur noch nicht korrekt geschlossen wurde. 
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BIOS - Funktionen 

Im folgenden eine auBerst knappe Auflistung der Funktionen des BIOS (Basic Input / 
Output System). Dieser Betriebssystemteil hat zwar nichts mit OMIKRON.BASIC zu tun, 
dennoch haben wir diesen Teil auf Wunsch vieler Kunden in das Handbuch eingeftigt. 
Genauere Informationen ilber die einzelnen Funktionen finden sie in entsprechender 
Fachliteratur. 

BIOS(,0,L Zeiger) - getmpb 

(Wird vom GEMDOS benotigt) 

BIOS(R,l, Device) - bconstat 

Stellt fest, ob das Gerat ein Zeichen gesendet hat. R=0: Kein Zeichen wurde 
gesendet, R=-l: Mindestens ein Zeichen wurde gesendet. 

Device = 1 fur RS232 
Device = 2 fur Tastatur 
Device = 3 ftir MIDI 
BIOS(R,2, Device) - bconin 

Liest ein Zeichen vom jeweiligen Gerat ein. R: Bits 0..7: das eingelesene Zeichen 
Fur Device -2 enthalten die Bits 16.. 23 den Scancode der betreffenden Taste. 1st 
zusatzlich das entsprechende Bit in der Systemvariablen "conterm" gesetzt, dann 
findet man in den Bits 24 .31 zusatzlich den aktuellen Shift-Status (vgl. BIOS(ll)). 

Device = 0 fiir Centronics-Port 
Device = 1 fur RS232 
Device = 2 ftir Tastatur 
Device - 3 fiir MIDI 
BIOS(,3,Device£eichen) - bconout 

Gibt das Zeichen an das jeweilige Gerat aus. 

Achtung: Erst wenn das Zeichen geschrieben werden konnte, kehrt diese Routine 
zuriick. Also aufpassen bei Druckern etc.! 

Device = 0 fiir Centronics -Port 

Device = 1 fiir RS232 

Device = 2 fiir Bildschirm 

Device = 3 fiir MIDI 

Device = 4 fiir Tastaturprozessor 

Device = 5 fiir Bildschirm ohne Terminalemulation 

BIOS(R, 4, rwflag, L Buffer, Sekiorzahl,Sektornr,Laufwerk) - rwabs 

Liest Oder schreibt Sektoren auf beliebigem Laufwerk. 
rwflag = 0 fiir lesen, Fehler bei Diskettenwechsel melden 
rwflag = 1 fiir schreiben, Fehler bei Diskettenwechsel melden 
rwflag = 2 fiir lesen, Diskettenwechsel ignorieren 
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rwflag - 3 fttr schreiben, Diskettenwechsel ignorieren 

Buffer: Zeiger auf einen Speicherbereich der geschrieben werden soli bzw. von 
dem gelesen werden soli. 

Sektorzahl: Anzahl der zu lesenden/zu schreibenden Sektoren. 

Sektornr: Startsektor ab dem geschrieben/gelesen werden soil. 

Laufwerk: 0= A:, 1=B:, ... 

R=0: Kein Fehler, <0: FelUer aufgetreten. 

BIOS(R,5,Vektornummer,L Vektoradresse) - setexc 

Setzt den Exeption Vektor. 1st die Adresse -1, so wird nicht gesetzt, sondern nur 
abgefragt 

Vektornummer: Nummer des Vektors 
Vektoradresse: Neue Adresse Oder -1. 

B!OS(R,6) - tickcal 

Ergibt die Anzahl Millisekunden zwischen zwei Timeraufrufen 
BIOS(R, 7, Laufwerk) - getbpb 

Ermittelt die Adresse des BlOS-Parameter-Blocks des Laufwerks. Der Block 
besteht aus neun Integer-Wort-Zahlen: 

Bytes je Sektor, Sektoren je Cluster, Bytes je Cluster, Sektoren des Directory, 
Sektoren je FAT, Sektornr. des 2. FAT, Startsektornr. der Daten, Anzahl Daten- 
Cluster, (intern verwendet) 

BIOS(R,8, Device) - bcostat 

Stellt fest, ob das Gerat bereit ist, ein Zeichen zu empfangen 

Device = 0 fur Centronics-Port 

Device = 1 fur RS232 

Device = 3 fur MIDI 

Device - 4 fur Tastaturprozessor 

R=0: Gerat nicht bereit, R=-l: Gerat bereit. 

BIOS(R, 9, Laufwerk) - mediach 

Stellt fest, ob Diskette gewechselt wurde: R=0: nein, R= 1 : vielleicht, 

R=2: ja. 

BIOS(R,10) - drvmap 

Ermittelt logische Laufwerke: BIT(O.R) fur Laufwerk A:, BIT(1,R) fiir B: ... 

BIOS(R, 11, Status) - kbshift 

Setzt Status der SHIFT-Tasten: bei Status' -1 wird nur abgefragt. 

BIT(0,R) bzw. BIT(0, Status) fiir rechtes SHIFT gedriickt 
BIT(1,R) bzw. BIT(1, Status) fiir linkes SHIFT gedriickt 
BIT(2,R) bzw. BIT(2, Status) fiir CONTROL gedriickt 
BIT(3,R) bzw. BIT(3, Status) fiir ALTERNATE gedriickt 
BIT(4,R) bzw. BIT(4, Status) fiir CAPS LOCK aktiv 
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XBIOS - Funktionen 

Im folgenden eine aufierst knappe Auflistung der Funktionen des XBIOS (extended 
Basic Input / Output System). Dieser Betriebssystemteil hat ebenfalls nichts mit 
OMIKRON. BASIC zu tun. Genauere Informationen iiber die einzelnen Funktionen finden 
sie in entsprechender Fachliteratur. 

XBIOS(,0, Modus, L Param.L Routine) - initmous 
Initialisiert die Maus. 

Modus: 0- Maus ausschalten 
1= Maus einschalten, relativer Modus 
Z- Maus einschalten, absoluter Modus 
3= (unbenutzt) 

4= Maus einschalten, Tastaturemulation 
Par am ist ein Zeiger auf: 

B 0= Y-Achse zahlt von unten nach oben, 1 = von oben nach unten 
.B fiir Maustasten: Bit 0: bei driicken Mausposition melden 
Bit 1: bei loslassen Mausposition melden 
Bit 2: bei Driicken Tastencodes melden 
B x-Teilung der Bewegung (nur im relativ-Modus benutzt) 

.B y Teilung der Bewegung (nur im relativ-Modus benutzt) 

B xmax (nur im absolut-Modus benutzt) 

,B ymay " 

B xstart " 

.B ystart " 

Routine ist die Adresse der Maus-Routine 
XBIOS(R,l,Speichermenge) - ssbrk 

(Mufi vor der Initialisierung des Betriebssystems aufgerufen werden) 

XBlOS(R,2) -physbase 

Ermittelt die Adresse, von der der Videoprozessor den Bildschirm darstellt. 
XBIOS(R,3) - logbase 

Ermittelt die Adresse des Bildschirms, auf den gerade ausgegeben wird. 
XBIOS(R,4) - getrez 

Ermittelt die Bildschirmauflosung. 

0 = 320*200 Punkte, 16 Farben (Farbmomtor) 

1 = 640*200 Punkte, 4 Farben (Farbmonitor) 

2 = 640*400 Punkte, 2 Farben (s/w-Monitor) 

XBIOS(,5,L Adrl.L Adr2,Auflosung) - setscreen 

Setzt Ausgabe- Adresse(Adr 1 ), Anzeige-Adresse(Adr2) und Auflosung (s.o). 

Eine -1 als Wert sorgt dafiir, dafi der entsprechende Wert nicht gesetzt wird. 
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XBIOS(,6,L Zeiger) - setpalette 

Setzt Farben (siehe PALETTE -Befehl). Der Zeiger zeigt auf einen Speicherbereich, 
der 16 Integer-Wort -Werte mit den Farben enthalt. 

XBIOS(R,7,Farbnummer,Farbwert) - setcolor 

Setzt eine Farbe. Mit einemFarbwert von -1 wirdnur abgefragt. 

XB!OS(R,8,L Buf, 0,0, Laufwerk, Sektor, Spur, Seite,Anzahl) - floprd 

Liest Sektoren von Laufwerk A:(0) oder B:(l). Buf ist ein Zeiger auf den Buffer, der 
Sektor geht von 1 bis 9 Oder 10, die Spur von 0 bis 79 Oder mehr, die Seite ist 0 Oder 
1 (bei 350-Kbyte-Laufwerken nur 0). fiber das Spurende kann nicht hinausgelesen 
werden. 

XBIOS(R,9,L Buf,0,0,Laufwerk, Sektor, Spur, Seite, Anzahl) - flopwr 
Schreibt Sektoren. Parameter wie floprd. 

XBIOS(R,10,L Buf,L 0, Laufwerk, Sektoranzahl, Spur, Seite, Interleave, 

L $87664321, Init) - flopfmt 

Formatted eine Spur. Buf zeigt auf 10 Kbyte Platz, die Sektoranzahl ist 9 Oder 10, 
Interleave ist der interleave factor (nehmen sie Interleave^!), Init sind die Daten, 
die die Spur anfangs enthalten soli. Keines der beiden Bytes der Zahl Init darf einen 
Wert von $F0 bis $FF haben. Nichterklarte Parameter siehe floprd. 

XBIOS(R,U) - getdsb 

Die "einzige" Moglichkeit, die Variable R zuverlassig auf null zu setzen 
(O Ironie, verlass mich nie!) 

XBIOS(, 12, Lange, L Pointer) - midiws 

Schreibt Daten auf dem MIDI-Kanal hinaus. Pointer ist ein Zeiger auf die Daten im 
Speicher. 

XBIOS(,13,Nummer,L Adresse) - mfpint 

Installiert eine Interruptroutine fur Nummer: 

0=Centronics Busy, 1=RS232 DCD, 2=RS232 CTS, 4=Timer D, 5=Timer C, 

6-Tastatur- und MIDI-ACIA’s, 7-FDC- und DMA-Chips, 8=Timer B, 

9=RS232 Sendefehler, 10=RS232 Sendebuffer leer, 11=RS232 Empfangsfehler, 
12=RS232-Empfangsbuffer voll, 13=Timer A, 14=RS232 Ring Indicator, 
15-MonochromMonitor detect 
XBIOS(R, 14, Device) - iorec 

Ermittelt den Zeiger auf folgende Daten: 

L Bufferadresse 
.W Buffergrofie 

W Offset, wo neue Daten hinzukommen (Head) 

■W Offset, wo Daten herauszunehmen sind (Tail) 

.W Low water mark 
W High water mark 
bei folgenden Geraten: 



203 


Device = 0 fiir RS232 - ermittelt Eingabebuffer; Ausgabebuffer schliefit an 
Device = 1 fur Tastatur 
Device = 2 fiir MIDI 

XBIOS(, 15, Baud, Ctrl, Ucr, Rsr, Tsr, Scr) - rsconf 

Baud ist ein Wert von 0-15 (oder -1 zum nicht-setzen). Den Werten von 0-15 sind 
der Reihenfolge nach folgende Baudraten zugeordnet: 
19200,9600,4800,3600,2400,2000,1800,1200,600,300,200,150,134,110,75,50 
Ctrl: 0=kein Handshake, l=XON/XOFF, 2=RTS/CTS, 3-beides, -l=nicht setzen 
Ucr, Rsr, Tsr, Scr sind Eingaben, um die gleichnamigen Register des MFP zu setzen. 
Wird - 1 angegeben, so wird das entsprechende Register nicht gesetzt. 

UCR Bit 0: unbenutzt 

Bit 1: 0=odd parity, l=even parity 

Bit 2: 0=no parity, Imparity 

Bit 3,4: 0=synchron, 1=1 Stopbit, 2=1.5 Stopbits, 3=2 Stopbits 

Bit 5,6: 0=8 Bits, 1 =7 Bits, 2=6 Bits, 3=5 Bits 

Bit 7: 0=Frequenz nicht teilen (nur synchron), l=Frequenz teilen 

RSR Bit 0: 1 =RS232~Empfanger ein, 0=aus 

Bit 1 : SCR-Zeichen mit iibertragen Oder nicht (nur synchron) 

Bit 2-7 sind nur abfragbar, nicht setzbar 
TSR Bit 0: 1 =RS232-Sender ein, 0=aus 

Bit 1,2: 0=Ausgang hochohraig, 1=H, 2=L, 3=Ausgang auf Eingang 
Bit 3: l=Break senden (nur asynchron) 

Bit 5: l=Empfanger einschalten, wenn Zeichen fertig gesendet 
Bit 4,6,7: nicht setzbar 

SCR Enthalt Synchronisationsbyte fiir synchron-Betrieb 
XBIOS(R,16,L Tabl,L Tab2,L Tab3) - keytbl 

Setzt die TastaturtabeUen. Tabl, Tab2 und Tab3 sind Zeiger auf Tastaturtabellen 
fiir normal, mit SHIFT und fiir CAPS LOCK (oder -1 fiir nichtsetzen). R ist dann ein 
Zeiger auf drei Zeiger auf die Tabellen. 

XBIOS(R,17) - random 

Ergibt eine 24-Bit-Zufallszahl 
XBIOS(,18,L Buf,L Serial, Disktyp, Exec) - protobt 
Erzeugt oder andert einen Bootsektor. 

Buf ist die Speicheradresse, an der der Bootsektor steht 
Serial ist die neue 24-Bit-Seriennummer der Disk oder - 1 
Disktyp: 0= ST SS, 1 = ST DS, 2= DT SS (360 K), 3= DT DS (720 K) oder - 1 
Exec: 0=Disk bootet nicht, l=Disk bootet oder - 1 
XBIOS(R,19,L Buf, 0 , 0 ,Laufwerk,Sektor,Spur,Seite,Anzahl) - flopver 
Priift Sektoren auf Lesbarkeit. Parameter wie floprd. 
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XBIOS(,20) - scrdmp 

Erstellt Hardcopy (siehe HCOPY-Befehl) 

XB!OS(R,21,Funktion,Geschwindigkeit) - cursconf 
Bestimmt den Corsor. 

Funktion: 0-Cursor aus, l=Cursor ein, 2= Cursor blinkend, 3=Cursor stabil, 
4=Blinkgeschwindigkeit setzen, 5 =Blmkgeschwindigkeit abfragen 
XBIOS(,22 f HIGH(Zeit),LOW(Zeit)) - settime 
Setzt Uhrzeit und Datum. 

Bits 0- 4:Sekunden geteilt durch2 (0 29; 0=0s, l=2s, 2=4s, 3=6s...) 

Bits S10:Minuten(0-59) 

Bits 1115:Stundcn (0 -23) 

Bits 16-20:Tag(l-31) 

Bits 21-24:Monat (1-12) 

Bits 25-31 Jahr (0-119; 0=1980, 1 = 1981.) 

XBIOS(R,23) - gettime 

Ergibt Uhrzeit und Datum im obigen Format. 

XBIOS(,24) - bioskeys 

Setzt Anderungen der Tastaturtabelle iiber keytbl zuriick. 

XBIOS(, 25, Lange, L Pointer) - ikbdws 

Ubergibt Daten an den Tastaturprozessor. Pointer ist ein Zeiger auf die Daten im 
Speicher. 

XBIOS(,26,Nummer) -jdisint 

Sperrt einen Interrupt des MFP. Siehe mfpint 
XBIOS(,27,Nummer) -jenabint 

Gibt einen Interrupt des MFP frei. Siehe mfpint 
XBIOS(R,28,Daten,Registernummer) - giaccess 

Liest / schreibt ein Register des Soundchips. Registernr Bit 7 = 1 : schreiben 
XBIOS(,29,Bitnummer) - offgibit 

Loscht ein Bit im Port A des Soundchips 
XBIOS(,30,Bitnummer) - ongibit 

Setzt ein Bit im Port A des Soundchips 
XBIOSf, 31, Timernummer, Control, Data, L Adresse) - xbtimer 

Startet einen MFP-Timer. Nummer 0-3= Timer A-D, Adresso= Interruptroutine. 
Control: 0 =Timer aus 

1-7 =Vorteiler teilt durch 4/ 10/16/50/64/100/200 
8 =Event Count Mode (nur Timer A,B) 

9-15=Pulsweiten-Mode, Vorteiler 4/ 10/16/50/64/100/200 (nur A, B) 

Fiir Timer C ist der Control-Wert mit 16 zu multiplizieren. 
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Data: Wert, auf den der Timer gesetzt werden soil, wenn er abgelaufen ist 
XB10S(,32,L Zeiger) - dosound 

Spielt eine vorgegebene Klangfolge ab. 

Datenbytes: 0- IS & Wert: Register 0-15 des Soundchips setzen 

128 & Startwert: Setzt Startwert fiir Kommando 129 

129 & 0-15 & Inc Addiert Inc zum Startwert, schreibt ihn 

& Endwert ins Soundregister (0-15) und wiederholt dies, falls der Endwert noch 

nicht erreicht wurde 

255 & Delay Wartet n/50 Sekunden 

255 & 0 Ende 

XBIOS(,33,Einstellung) - setprt 

Stellt Daten fiir den Drucker ein: 

BitO: 0= Matrix-, l=Typenraddrucker 
Bit 1: 0=Farb-, l=s/w Drucker 
Bit 2: 0=ATARI-, l=EPSON-Drucker 
Bit 3: 0-Test , 1= Quality-Modus 
Bit 4: 0=Centronics, 1=RS232 
Bit 5: 0=Endlos, l=Einzelblatt 
XBIOS(R,34) - kbdvbase 

Ergibt einen Zeiger auf eine Tabelle mit folgenden Zeigern: 

MIDI in, Keyboard-Fehler, MIDI-Fehler, IKBD Status, Maus-Routinen, 
Uhrzeit-Routine, Joystick-Routinen. 
XBIOS(R,35,Verzdgerung,Wiederholgeschwindigkeit) - kbrate 

Stellt den Tastatur -Repeat ein. Ein Wert von -1 bedeutet nicht setzen. 

R enthalt: Unteres Byte: Geschwindigkeit, oberes Byte: Verzogerung. 

XBIOS(, 36, L Pointer) - prtblk 

Nochmals eine Hardcopy. Pointer zeigt dabei auf eine Tabelle mit sehr vielen 
Angaben. 

XBIOS(,37) - vsync 

Wartet auf vertical blanc (vertikalen Bildriicklauf) 

XBIOS(,38,L Adresse) - supexec 

Fiihrt eine Maschinenroutine im Supervisor Modus auf. 

XBlOS(,39) -puntaes 

Loscht bei alteren Betriebssystemen (solche, die von Disk geladen werden) das 
AES (mul) aus dem AUTO-Ordner heraus aufgerufen werden). 
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GEMDOS - Funktionen 

Im folgenden eine aufierst knappe Auflistung der Funktionen des GEMDOS (Graphics 
Environment Manager Disk Operating System). Dieser Betriebssystem- teil hat auch 
nichts mit dem OMIKRON. BASIC zu tun. Genauere Informationen tiber die einzelnen 
Funktionen finden sie in entsprechender Fachliteratur. 

GEMDOS(,0) - ptermO 

Beendet das momentan laufende Programm. Dies ist im Interpreter nicht Ihr 
BASIC-Programm, sondern der Interpreter selbst! 

GEMDOS(R,l) - cconin 

Holt ein Zeichen von der Tastatur und gibt es auf den Bildschirm aus. 
GEMDOS(R,2£eichen) - cconout 

Gibt ein Zeichen auf dem Bildschirm aus. 

GEMDOS(R,3) - cauxin 

Liest ein Zeichen tiber die RS232-Schnittstelle ein. 

GEMDOS(,4£eichen) - cauxout 

Gibt ein Zeichen iiber RS232 aus. 

GEMDOS(, 5, Zeichen) - cprnout 

Gibt ein Zeichen an den Drucker aus. 

GEMDOS(R,6jfeichen) ~ crawio 

Gibt ein Zeichen auf dem Bildschirm aus; ist der Wert des Zeichens 255, so wird ein 
Tastenwert wie bei INKEY$ zuriickgegeben - oder null, wenn keine Taste gedriickt 
worden war. 

GEMDOS(R,7) - crawcin 

Holt ein Zeichen von der Tastatur. GEMDOS(R,8) - cnecin 
Holt ein Zeichen von der Tastatur. 

GEMDOS(,9,L Pointer) - cconws 

Gibt ab dem Pointer aus dem Speicher Zeichen aus, bis ein Nullbyte erreicht wird. 
GEMDOS(R, 1 0,L Buffer) - cconrs 

Lafit den Benutzer eine Zeile eingeben. Buffer zeigt zwei Bytes vor den eigentlichen 
Buffer fur die Eingabe. Die zwei Zeichen davor sind: Maximale Lange; Tatsachliche 
Lange der Eingabe. 

GEMDOSfR, 11) - cconis 

Testet ab, ob eine Taste gedriickt wurde. 

R=0: Keine Taste gedriickt, -1: Taste gedriickt. 

GEMDOS(R,14,Laufwerk) - dsetdrv 

Stellt auf ein anderes Standardlaufwerk um und gibt die alte Laufwerknum- mer 
zuriick. (0=A:, 1=B:...) 
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GEMDOS(R,16) - cconos 

Die einzig sichere Methode, die Variable R auf den Wert $0000FFFF zu setzen. 

(Hier wird abgetestet, ob der Bildschirm bereit ist, Daten zu empfangen...) 
GEMDOS(R,17) - cprnos 

Testet, ob der Drucker bereit ist, Daten zu empfangen. 

GEMDOS(R,18) - cauxis 

Testet, ob ein Zeichen von der RS232-Schnittstelle anliegt. 

GEMDOS(R,19) - cauxos 

Testet, ob ein Zeichen iiber RS232 gesendet werden kann 

GEMDOS(R,25) - dgetdrv 

Ermittelt die Laufwerknummer des Standardlaufwerks. 

GEMDOS(,26,L Adresse) - fsetdta 

Setzt die Adresse des Buffers fur sfirst und snext. 

GEMDOS(R,32,L Wert) - super 

Wert=0: Schaltet den Supervisor-Modus ein. R enthalt den alten USP 
WertoO: Schaltet den Supervisor -Modus aus. als Wert mufi der alte USP 
uborgoberi werden, den man beim Einschalten des Supervisor -Modus mitgeteilt 
bekam. 

Sie konnen unter OMIKRON.BASIC den Supervisor -Modus leider nicht 
einschalten: er ist es bereits. Verwenden Sie also diese Funktion niemals unter 
OMIKRON.BASIC! 

GEMDOS(R,42) - tgetdate 
Ermittelt das Datum. 

Bits 0- 4:Tag (1-31) 

BitsS- 8:Monat (1-12) 

Bits 9-15:Jahr (0-119; 0=1980, 1=1981 ) 

GEMDOSf, 43, Da turn ) - tsetdate 

Stellt das Datum ein. Format siehe getdate. 

GEMDOS(R,44) ~ tgettime 

Ermittelt die Uhrzeit. 

Bits 0- 4:Sekunden geteilt durch 2 (0-29; 0=0s, l=2s, 2=4s, 3=6s ..) 

Bits 6- 10:Minuten (0-S9) 

Bits ll-15:Stunden (0-23) 

GEMDOS(, 45, Uhrzeit) - tsettime 

Stellt die Uhrzeit ein. Format siehe gettime. 

GEMDOS(R,47) - fgetdta 

Ermittelt die Adresse des Buffers fur sfirst und snext. 

GEMDOS(R,48) - sversion 

Ermittelt die Versionsnummer des GEMDOS. $1323 bedeutet: 19.23. 
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GEMDOSf,49,L GroBe,Fehlercode) - ptermres 

Beendet das Programm, loscht es jedoch nicht aus dem Speicher. Als Grofie wird 
die Grofie des Programmes plus der benotigten Daten plus 256 angegeben Nicht 
unter OMIKRON.BASIC aufrufen! 

GEMDOS(R,54,L Buffer, Laufwericnummer+1) - dfree 
Fiillt den Buffer mit folgenden Daten: 

L Freie Daten-Cluster 
.L Daten-Cluster gesamt 
L Bytes jeSektor 
L Sektoren je Cluster 

1st die Laufwerknummer -1 angegeben (+1 macht null), so wird die Berechnung fiir 
das Standardlaufwerk durchgefiihrt. 

GEMDOS(R,57,L Ordnername) - dcreate 

Richtet ein Subdirectory (Ordner) ein. Ordnername ist ein Zeiger auf den 
Ordnernamen, der durch ein Nullbyte abgeschlossen ist. 

GEMDOS(R,58,L Ordnername) - ddelete 

Loscht ein Subdirectory (Ordner). Ordnername ist ein Zeiger auf den 
Ordnernamen, der durch ein Nullbyte abgeschlossen ist. 

GEMDOS(R,59,L Pfadname) - dsetpath 

Andert den Standardpfad eines Laufwerks. Ist im Pfadnamen keine 
Laufwerksbezei chnung vorhanden, so wird der Standardpfad des 
Standardlaufwerks geandert. Pfadname ist ein Zeiger auf den Pfadnamen, der 
durch ein Nullbyte abgeschlossen ist. 

GEMDOS(R,60,L Dateiname,Dateiattribut) - fcreate 

Legt eine neue Datei an. Dateiname ist ein Zeiger auf den Dateinamen, der durch 
ein Nullbyte abgeschlossen ist. 

Dateiattribut besteht aus: l=R/0, 2=hidden, 4=SYS-File, 8=Volume (, 16=Ordner) 

R enthalt entweder ein Dateihandle (>=6) Oder eine Fehlernummer. 

GEMDOS(R,61,L Dateiname, Modus) - fopen 

Eroffnet eine bereits vorhandene Datei bei Modus 0 fiir Lesen, bei 1 fiir Schreiben, 
bei 2 fiir Lesen und Schreiben. Rest wie fcreate. 

GEMDOS(R, 62, Handle) - fclose 

Schliefit eine Datei. Handle ist die von fcreate oder fopen ermittelte Dateihandle- 
Nummer. R enthalt null oder eine Fehlernummer. 

GEMDOSfR, 63, Handle, L Anzahl,L But) - fread 

Anzahl ist die Anzahl der zu lesenden Bytes, Buf ist die Speicheradresse, wohin die 
Bytes gelesen werden sollen. 

R enthalt die Anzahl der gelesenen Bytes oder eine Fehlernummer. 

GEMDOS(R, 64, Handle, L Anzahl, L Buf) - fwrite 

Anzahl ist die Anzahl der zu schreibenden Bytes, Buf ist die Speicheradresse, von 
der die zu schreibenden Bytes geholt werden konnen. 
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R enthalt die Anzahl der geschriebenen Bytes Oder eine Fehlernummer. 

GEMDOSfR, 65, L Dateiname) - i delete 

Loscht eine Datei R enthalt null Oder eine Fehlernummer. 

GEMDOSfR, 66, L Anzahl, Handle, Modus) - fseek 

Setzt den Schreib-/Lesezeiger einer Datei. Modus: 0=relativ zum Dateianfang, 
l=relativ zum alten Zeiger, 2=relativ zum Dateiende. 

R enthalt eine Fehlernummer, wenn tiber die Dateienden hinausgegangen wird. 
GEMDOS(R,67,L Datei name, Modus, Date attribut) - fattrib 

Setzt (Modus=l) Oder Ermittelt (Modus=0) das Dateiattribut. 

GEMDOS(R,69, Device) - fdup 

Offnet Datei auf Tastatur/Bildschirm(l), RS232(2) Oder Drucker(3). R: Handle 
GEMDOS(R, 70, Device, Handle) - fforce 

Lenkt die Ausgabe des Gerates (s. fdup )auf eine offene Datei um. 

GEMDOS(,71,L Buf,Laufwerknummer+l) - dgetpath 

Schreibt in den 64 Byte grofien Buffer (der durch Buf angegeben wird), den 
Pfadnamen des angegebenen Laufwerks. Laufwerk -1 heifit Standardlaufwerk. 

GEMDOSf R, 72, L Anzahl) - malloc 

Macht genau das gleiche wie die BASIC -Funktion MEMORY. Ausnahme: CLEAR 
loscht mit malloc angelegte Speicherblocke nicht. 

R enthalt die Speicherblockadresse Oder die Anzahl der freien Bytes 
GEMDOS(R,73,L Speicherblockadresse) - mfree 

Loscht einen von malloc angelegten Speicherblock. 

GEMDOSfR, 74, 0,L Base,L Anzahl) - mshrink 

Verkleinert die Speicherreservierung fiir ein Programm. Base ist die Adresse der 
Basepage, Anzahl ist die Anzahl der von Programm und Daten benotigten Bytes 
plus 256. Nicht unter OMIKRON.BASIC aufrufen! 

GEMDOSfR, 75, Modus, L Dateiname, L Commtail.L Environment) pexec 
Ladt (Modus=3) Oder ladt und startet (Modus=0) ein Programm. 

Dateiname ist ein Zeiger auf den Dateinamen, Commtail ein Zeiger auf das 
tiber gebene Kommando (seine Lange mufi als Byte vorneangestellt sein), 
Environment zeigt auf den Environmentstring: 

"PATH=" + chr$(0) + "A:\'‘+chr$(0)+chr$(2S5) 

R enthalt wie tiblich null Oder eine Fehlernummer. 

Wichtig: es mufi sehr viel GEMDOS-Speicher frei sein. Beispielsweise. 
CLEAR:CLEAR FRE(0)+memory(- 1)- 10000 
GEMDOSf, 76, Riickgabewert) -pterm 

Beendet das laufende Programm (z.B. den Interpreter) und gibt einen Wert zurtick. 
GEMDOSfR, 78, L Dateiname, Attribut) - fsfirst 

Sucht den ersten Eintrag eines Inhaltsverzeichnisses. Parameter wie bei OPEN "F". 
Siehe Anhang "Dateitypen bei OPEN" 
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GEMDOS(R,J9) - fsnext 

Sucht den jeweils nachsten Eintrag (nach fsfirst ) 

GEMDOS(R,86,0,L 01d,L New) - /rename 
Entspricht NAME.. .AS 

GEMDOS(R,87,L But, Handle, Modus) - fdattime 

Setzt (Modus=l) oder ermittelt (Modus =0) Datum und Uhrzeit einer gedffneten 
Datei. Buf zeigt auf 4 Bytes, die Datum und Uhrzeit enthalten. 



Systemvariablen des ATARI ST 
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Im folgenden eine knappe Auflistung einiger Systemvariablen des ATARI ST. Dieser 
Betriebssystemteil hat auch nichts mit dem OMIKRON.BASIC zu tun. Genauere 
Informationen iiber die einzelnen Variablen finden sie in entsprechender Fachliteratur. 


Abfragen: R= PEEK(<Adresse>) 

Setzen. POKE <Adresse>,<Wert> bei ( B) 

R=WPEEK(<Adresse>) WPOKE <Adresse>,<Wert> bei (.W) 
R=LPEEK(<Adresse>) LPOKE <Adresse>,<Wert> bei (,L) 


Adresse 

Name 

Bedeutung 

,L $404 

etv_critic. 

Stellt Dialogboxen fiir I.esefehler dar. Durch Umsetzen auf: 
MOVE.L 4(SP),D0 | RTS kann dies abgeschaltet werden. 

L $426 

resvalid. 

Ein Inhalt von $31415926 macht den Reset- Vektor giiltig. 

L $42A 

resvector. 

Reset-Vektor. Wird bei RESET evtl. angesprungen. 

.L $42E 

phystop. 

Ende des Speichers im ST. 

,L $432 

jnembot. 

Beginn des fiir Programme zur Verfiigung stehenden 
Speichers. 

L $436 

_memtop. 

Ende desselben. 

W $444 

_fverify. 

Ungleich null bedeutet, dafi bei alien Floppy- 
Schreibzugriffen ein Priiflesen ausgefiihrt wird. 

.B $44C 

sshiftmd. 

Bildschirmauflosung (siehe BIOS; getrez ) 

L$44E 

_v_bas_ad. 

logische Bildschirmadr. (vgl. BIOS; setscreen) 

.W $452 

vblsem. 

VBL-Interrupts zulassen (1) oder sperren (0). 

.W $464 

nvbls. 

Anzahl der Zeiger in der VBL-Zeigertabelle 

,L $456 

_vblqueue. 

Zeiger auf Zeigertabelle auf VBL-Routinen 

,L $45A 

colorptr. 

Setzen Sie den Zeiger auf eine Farbpalette hier hinein. Nach 
dem nachsten VBL-Interrupt ist die Palette gesetzt und der 
Wert wieder null. 

.L $45E 

screenpt. 

Dasgleiche wie colorptr fiir die Anzeigeadresse des 
Bildschirms. Funktioniert bei manchen Betriebssystemen 
nicht richtig. 

.L $462 

vbclock. 

Zahlt die Anzahl der Ausgefiihrten VBL-Routinen ($452 =0 
sperrt auch diesen Zahler.) 

.L $466 

_frclock. 

Zahlt die Anzahl der VBL-Interrupts. 

,L $472 

hdvbpb. 

Vektor fur BIOS getbpb 

,L$476 

hdv_rw. 

Vektor fiir BIOS rwabs 

,L$47E 

hdvmediach. 

Vektor fiir BIOS mediach 
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.B $484 conterm. 


.W $4A6 _nflops. 
■L $4BA _hz_200. 
■L $4C2 _drvbits. 
.L $4FE exec_os. 


Bit 

0: Tastaturklick ein/aus 
1: Tastatur -Repeat ein/aus 
2: Ton bei PRINT CHR$(7); ein/aus 

3: Shift-Bits bei BIOS bconin bzw. INKEY$ ein/ 
BIOS(ll)) 

Anzahl angeschlossener Laufwerke 
Entspricht TIMER. 

Bitvektor ftir logische Laufwerke (Bit 0=A:, 2=C:) 
Vektor zur initialisierung des GEM AES 


aus. (vgl. 
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Befehlsgruppen-Index 


Mathematische Funktionen 

MIN: 123 

ABS: 45 

PI: 141 

ARCCOS: 46 

RAD: 148 

ARCCOT: 46 

RND: 154 

ARCOTH: 46 

SEC: 157 

ARCSIN: 7 

SECH: 157 

ARCTAN: 47 

SGN: 160 

ARSINH: 47 

SIN: 161 

ARTANH: 48 

SINH: 161 

ATN: 48 

SQR: 163 

COS: 65 

TAN: 166 

COSEC: 65 

TANH: 166 

COSECH: 65 

COSH: 66 

Zahlenkonvertierung, 

COT: 66 

Zahlensysteme 

COTH: 66 

BINS: 49 

DEG: 74 

CDBL: 56 

DET: 75 

CINT: 58 

EXP: 82 

CINTL: 58 

FACT: 82 

CSNG: 66 

FIX: 86 

CVD: 67 

FRAC: 89 

CVI: 68 

HIGH: 93 

CVIL: 68 

INT: 103 

CVS: 68 

INV: 103 

HEX$: 93 

LN: 111 

MKD$: 123 

LOG: 113 

MKI$: 124 

LOW: 114 

MKILS: 124 

MAT: 117 

MKS$: 124 

MAT CLEAR: 118 
MAX: 119 

OCTS: 131 
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Stringfonktioneii 

ASC: 48 
CHR$: 58 
INSTR: 102 
LEFT$: 106 
LEN: 106 
LOWERS: 114 
LSET: 117 
MID$: 122 
MIRRORS: 123 
RIGHTS: 153 
RSET: 154 
SPACES: 163 
SPC: 163 
STR$: 164 
STRINGS: 165 
UPPERS: 172 
VAL: 173 

Operatoren siehe Seite 37ff 

*Multiplikation 
*=Mult. mit Zuweisung 
♦Addition, Vorzeichen 
+ 1 Addition +1 
+=Addition mit Zuweisung 
-Subtraktion, Vorzeichen 
-lSubtraktion -1 
-=Subtraktion mit Zuweisung 
/Division 
/2Division mit 2 
/=Division mit Zuweisung 
<Kleiner 

<=Kleiner Oder gleich 
oUngleich 


=Gleich, Zuweisung 
>Grofier 
>=Grofier od 

Mathematische Funktionen 

ABS: 45 
ARCCOS: 46 
ARCCOT: 46 
ARCOTH: 46 
ARCSIN: 47 
ARCTAN: 47 
ARSINH: 47 
ARTANH: 48 
ATN: 48 
COS: 65 
COSEC: 65 
COSECH: 65 
COSH: 66 
COT: 66 
COTH: 66 
DEG: 74 
DET: 75 
EXP: 82 
FACT: 82 
FIX: 86 
FRAC: 89 
HIGH: 93 
INT: 103 
INV: 103 
LN: 111 
LOG: 113 
LOW: 114 
MAT: 117 
MAT CLEAR: 118 
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MAX: 119 
MIN: 123 
PI: 141 
RAD: 148 
RND: 154 
SEC: 157 
SECH: 157 
SGN: 160 
SIN: 161 
SINH: 161 
SQR: 163 
TAN: 166 
TANH: 166 

Zahlenkonvertierung, 

Zahlensysteme 

BINS: 49 
CDBL: 56 
CINT: 58 
CINTL: 58 
CSNG: 66 
CVD: 67 
CVI: 68 
CVIL: 68 
CVS: 68 
HEX$: 93 
MKD$: 123 
MKI$: 124 
MKIL$: 124 
MKS$: 124 
OCT$: 131 

Stringfunktionen 

*Stringmultiplikation 


+Stringaddition 
ASC: 48 
CHR$: 58 
INSTR: 102 
LEFTS: 106 
LEN: 106 
LOWERS: 114 
LSET: 117 
MID$: 122 
MIRRORS: 123 
RIGHTS: 153 
RSET: 154 
SPACES: 163 
SPC: 163 
STR$: 164 
STRINGS: 165 
UPPERS: 172 
VAL: 173 

Operatoren: 41 ff 

*Multiplikation 
*=Mult. mit Zuweisung 
+ Addition, Vorzeichen 
+ 1 Addition + 1 
+ = Addition mit Zuweisung 
-Subtraktion, Vorzeichen 
-lSubtraktion -1 
-= Subtraktion mit Zuweisung 
/Division 
/2Division mit 2 
/=Division mit Zuweisung 
<Kleiner 

<=Kleiner oder gleich 
oUngleich 
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=Gleich, Zuweisung 
>Gro6er 

>=Grofier Oder gleich 
ANDUND 

BIT Bit testen/setzen 
EQV Aquivalenz 
IMP Implikation 
MOD Modulo 
NAND Negiertes UND 
NOR Negiertes ODER 
NOT Negation 
OR Oder 

SHL Bitshift nach links 
SHR Bitshift nach rechts 
XOR Exclusiv ODER 
\ Ganzzahl-Division 
A Potenz 

* Pointer 
& Getptr 

* Mat.Mult. 

+ Mat.Add. 

- Mat.Sub. 

/ Mat.Div. 

* Nummer 

’ Kommentar 

Variablentypen, 

Variablenverwaltung 

CLEAR: 60 
DATA: 69 
DEFDBL: 72 
DEFINT: 73 
DEFINTL: 73 
DEFSNG: 74 
DEFSTR: 74 


DIM: 76 
DUMP: 77 
LDUMP: 106 
LET: 106 
LOCAL: 112 
ON ... RESTORE. 134 
READ: 149 
RESTORE: 151 
SORT: 162 
SWAP: 165 

Strukturbefehle 

{ 

} 

CASE: 56 

CONTINUE: 64 

DEFFN: 70 

DEF PROC: 71 

ELSE: 78 

END: 78 

ENDIF: 79 

END_FN: 79 

END_PROC: 79 

END_SELECT: siehe SELECT 

EXIT: 81 

FN: 87 

FOR: 87 

GOSUB: 91 

GOTO: 92 

IF: 94 

NEXT: 129 

ON GOSUB: 132 

ON GOTO: 132 

OTHERWISE: Siehe SELECT 



PROC: 147 

CSRLIN: 67 

REPEAT: 150 

EOF: 79 

RETURN: 152f 

FIELD: 83 

SELECT: 159 

GET: 91 

STEP: 164 

HCOPY: 92 

THEN: 169 

HCOPY TEXT: 92 

UNTIL: 172 

INKEY$: 96 

WEND: 176 

INPUT: 97 

WHILE: 176 

INPUT #: 98 

Diskettenbefehle 

INPUT @: 97 
INPUT USING: 98 

BACKUP: 49 

INPUTS: 102 

BLOAD: 53 

LINE INPUT: 108 

BSAVE: 54 

LOC: 111 

CHAIN: 57 

LOCATE: 112 

CHAIN MERGE: 57 

LOF: 113 

CHDIR: 57 

LPRINT: 115 

COMMON: 62 

MODE LPRINT: 126 

COPY: 64 

OPEN: 136 

FILES: 84 

POS: 143 

KILL: 105 

PRINT: 144 

LOAD: 111 

PRINT #: 144 

MERGE: 121 

PRINT @: 145 

MKDIR: 124 

PRINT USING: 145 

NAME AS: 128 

PUT: 147 

RMDIR: 154 

SEEK: 157 

SAVE: 155 

TAB: 166 

Ein~/Ausgabebefehle 

USING: 172 
WRITE: 178 

@AT 

WRITE #: 178 

?PRINT 
CLOSE: 61 

Systembefehle 

CLS: 61 

BIOS: 50 

CMD: 62 

BRK: 54 




CALL: 55 

DEF USR: 72 

FRE: 89 

GEMDOS: 90 

HIGH: 93 

INLINE: 97 

IPL: 103 

LOW: 114 

LPEEK: 114 

LPOKE: 115 

MEMORY: 119 

MEMORY_BLOCK: 120 

MEMORY_MOVE: 121 

MEMORY_MOVEB : 121 

PEEK: 141 

POKE: 142 

USR: 173 

WPEEK: 177 

WPOKE: 177 

WVBL: 179 

XBIOS: 179 

Grafikbefehle 

BITBLT: 52 
BOX: 54 
CIRCLE: 59 
CLIP: 60 
COLOR: 62 
DRAW: 76 
ELLIPSE: 78 
FILL: 84 

FILL COLOR: 85 
FILL PATTERN: 85 
FILL STYLE: 86 


HEIGHT. 93 
LINE COLOR: 108 
LINE PATTERN: 108 
LINE STYLE: 109 
LINE WIDTH: 109 
MODE: 125 
NDC: 129 
OUTLINE: 139 
PALETTE: 139 
PBOX: 140 
PCIRCLE: 140 
PELLIPSE: 141 
POINT: 142 
POLYGON: 142 
PPOLYGON: 143 
PRBOX: 143 
RBOX: 148 
TEXT: 167 
TEXT COLOR: 167 
TEXT HEIGHT: 167 
TEXT ROTATION: 168 
TEXT STYLE: 168 

GEM-Befehle 

AES: 45 

FILESELECT: 84 
FORM_ALERT: 88 
FSEL JNPUT: 90 
VDI: 174 

Sound-Befehle 

NOISE: 130 
TUNE: 171 
VOLUME. 175 



Multitasking 

ON HELP GOSUB: 133 
ON KEY GOSUB: 133 
ON MOUSEBUT GOSUB: 134 
ON TIMER GOSUB: 135 

Fehlerbehandlung 

EDIT: 77 
ERL: 80 
ERR: 80 
ERRS: 81 
ERROR: 81 

ON ERROR GOTO: 131 
RESUME: 152 

Systemvariablen 

COMPILER: 63 
DATES: 69 
H_CHAR: 94 
H__PIXEL: 94 
JOYSTICK: 104 
LPOS: 115 
MODE: 125 
MOUSEBUT: 126 
MOUSEOFF: 127 
MOUSEON: 127 
MOUSEX: 127 
MOUSEY: 128 
RESERVED: 150 
SEGPTR: 158 
TIMES: 169 
TIMER: 170 
VARPTR: 173 
VERSION: 174 


WCHAR: 179 
W_PIXEL: 179 

Steuerbefehle 

CLEAR: 60 
CONT: 63 
END: 78 
EXEC: 81 
KEY: 104 
KEY LIST: 105 
LIBRARY: 107 
LIBRARY CODE: 107 
LIST: 110 
LISTS: 110 
LLIST: 110 
LOCK: 113 
NEW: 129 

ON TRON GOSUB: 136 
REM: 149 
RENUM: 150 
RUN: 155 
SCREEN: 156 
STOP: 164 
SYSTEM: 165 
TROFF: 170 
TRON: 170 
WAIT: 176 
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Stichwortverzeichnis 


A: 

Abfrage des Joystickports: 104 
Abfrage von Punkten/Pixeln: 142 
Abfrage von Zeicheneingaben: 96 
Abkiirzungen fur BASIC -Befehle: 27 
Absolutwert: 45 
Accents: 125f 
Adressoperatoren: 43 
AES- Aufruf: 45 
Alarm-Box: 88 
Alert-Box: 88 

Anlegen eines Ordners: 124 
Arcus-Funktionen: 46ff 
Arithmetik: 31 
ASCII-Tabelle: 253 
ASCII-Umwandlung: 48 
AT-Funktion(@): 145 
Ausdruck eines Programmes: 12 
Ausdrucken: 144ff 
Automatisches Backup: 20 

B: 

Backup: 20 
BASIC verlassen: 165 
Bedingte Verzweigungmit ON: 131ff 
Befehle suchen: 13 
Befehlsgruppenindex: 244 
Befehlsiibersicht: 28 
Bildschirm ausdrucken: 92 
Bildschirm loschen: 60 
Bildschirm unterteilen: 18 


Bildschirm-Editor: 31 
Bildschirm-Editor: 29 
Bildschirm-Editor, Tasten im: 30 
Bildschirmtreiber: 19 
BIOS -Aufruf: 50 
BIOS-Funktionen: 199ff 
Bit-Operationen: 50f, 160f 
Block laden: 11 
Block speichern: 11 
Blockende markieren: 17 
BLOCK-Menii: 16ff 
Block-Operationen: 16ff 
Blockstart markieren: 17 
Blocke markieren mit Maus: 9f 
Bogenmafi: 74f, 148 

C: 

Clipping: 60 
Compiler-Optionen: 63f 
CompUieren: 23 
Cursor-Steuerung: 7 
Cursorzeile: 67 

D: 

Datei loschen: 105f 
Dateiauswahlbox: 9 
Dateiauswahlbox aufrufen: 84 
Dateienoffnen: 136ff 
Dateinamen: 185 
Dateitypen bei OPEN: 183 
Dateizeiger setzen: 157 
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Datumsformat: 69f 
Definitionen von Ausdriicken: 37ff 
Determinante: 75 
Dialogboxen: 8 

Dimensionieren eines Feldes: 76 
Direktmodus: 12 
Doppelklick auf ein Wort: 15 
Drucken: 144ff 

Drucken eines Programmes: 12 

E: 

Editierhilfen, weitere: 26 
Editor, Direktmodus: 29 
Editor, Full-Screen: 5ff 
Editor verlassen: 16 
Einfiige-Modus: 6 
Einfiigen von Zeilen: 7 
Eingabe einer Zeichenkette: 97f, 108 
Einstellungen abspeichern: 20 
Entfernen eines Ordners: 154 
Erklarung von Ausdriicken: 37ff 
Erklarungen zum Handbuch: 1 
Ersetzen: 16 

F: 

Fachbegriffe: 37ff 
Farben und Muster: 181 
Fehler suchen: 15 
Fehlerbehandlung:81, 131 
Fehlerhafte Zeile: 80f 
Fehlermeldungen, Tabelle: 190ff 
Fehlernummer: 81 
Feld dimensionieren: 75 
Felder sortieren: 162 


FILE-Menu: lOff 
Fileselectbox aufrufen: 84 
FIND -Menu: 13 
Fliefikomma: 31 
Float: 31 

Fonteinstellungen andern: 18 
Formatstring: 172 
Formatstring bei Ausgaben: 145ff 
Formatstring bei Zeicheneingaben: 
99ff 

Fiillen: 84ff 
Fiillstil: 85 
Fiillstil-Tabelle: 182 
Full-Screen-Editor: 5ff 
Full-Screen-Editor, Tastenbelegung 
im: 6f 

Funktion definieren: 70f 
Funktionstaste belegen: 104 
Funktionstasten: 25f 

G: 

GEMDOS - Auf ruf : 90 
GEMDOS-Funktionen: 206 
GO-Menii: 21ff 
Gradmafi: 74f, 148 
Grafik beschranken: 60 
Grofi/Kleinschreibung im 
Handbuch: 1 
Grundeinstellungen: 19f 

H: 

Handbuch, Erklarungen zum: 1 
Hardcopy: 92 
Help: 6 

Hilfe-System: 6 
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I: 

Inbetriebnahme des Interpreters: 
Beiblatt 

Inhaltsverzeichnis: 84 
Inhaltsverzeichnis anzeigen: 12 
Insert -Modus: 6 
Integer: 31 

J: 

Joystickabfrage: 104 

K: 

Klein/ Grofischreibung im 
Handbuch: 1 
Kommentar: 149 
Kompatibilitat zu MB ASIC: 3f 
Konstanten: 34 
Kopieren: 64 
Kreis: 59 

L: 

Laden eines Blocks: 11 
Laden eines Programmes: 11 
Laden eines Speicherblocks: 53f 
Laden von Blocken: 11 
Landerspezifischer Modus: 125f 
Lautstarke: 175 
Library einbinden: 107 
Linienstil: 108ff 
Loschen einer Datei: 105f 
Logarithmus: 111 
Lokale Variablen: 112 


M: 

Maschinensprachebefehle 
ausfiihren: 97 
Matrizen: 75 

Matrizenoperationen: 117ff 
Maus ein/ausschalten: 127 
Maus im Full-Screen-Editor: 9f 
Mausabfrage: 126f 
MBASIC, Kompatibilitat: 3f 
Meniipunkte, Erlauterung: lOff 
Menii-Zeile, Besonderheiten: 10 
MODE-Menii: 18ff 
Modus, Eingabe-: 6 
Musik: 171, 175 
Muster erstellen: 84f 
Muster und Farben: 181 

N: 

NDC-Koordinaten: 129 
Neues Programm anlegen: 10 

Numerische Stringumwandlugen: 
124 

O: 

Offnen von Dateien: 137ff 
Operatoren: 43 
Ordner anlegen: 124 
Ordner entfernen: 154 
Outline: 139 
Overwrite-Modus: 6 

P: 

Pixelabfrage: 142 
Pointer: 43 

Polygone zeichnen: 142 



223 


Preferences: 19f 
Programm laden: 11 
Programm schiitzen: 113 
Programm speichern: 11 
Prozedur definieren: 7 If 
Punktabfrage: 142 
Querverweise suchen mit 
Doppelklick: 9 

R: 

Rahmen bei Grafik: 139 
Rechenzeichen: 41 
Rechenzeichen: 38 
Rechteck: 54 
Repeat: 25 

RS 232-Parameter: 186 
Riickgabe von Werten: 153f 
Rundungsfehler: 36 
RUN -Menu: 26 

S: 

Schriftstile im Handbuch: 1 
Schutz von Programmzeilen: 113 
Sicherheitskopie: 20 
Sortieren von Feldern: 162 
Speicherblock laden: 53f 
Speichern eines Blocks: 11 
Speichern eines Programms: 11 
Speicheroperationen: 119ff 
Sternchen in der Menii-Zeile: 10 
Steuerzeichen VT-52: 187 
Stichwortverzeichnis: 249 
String: 32 

String durchsuchen: 1052 
Stringumwandlungen, numerisch: 


124 

Suchen: 13 

Suchen von Fehlern: 80f 
Syntax-Beschreibungen: 3 
Systemvariablen des Atari ST: 211 

T: 

Tastaturfunktionen, Tabelle der: 28 
Tastaturfunktionen, weitere: 24 
Tasten im BildschirmEditor: 30 
Tastenbelegung im Full-Screen- 
Editor: 6f 

Tastenbeschreibung im Handbuch: 

1 

Text ersetzen: 16 

Text im Grafikmodus: 167 

Text suchen: 13 

Text suchen per Doppelklick: 15 
Texte drucken: 115 
Texteinstellungen: 167f 
Tone: 171, 175 
Token ersetzen: 16 
Token suchen: 13 
TOS-Fehlermeldungen: 188f 
TRACE-Modus: 170 

U: 

Uberschreib-Modus: 6 

Ubersicht iiber Befehle, Funktionen, 

Operatoren: 37ff 

Ubersicht iiber die Befehle: 28 

Umrandung bei Grafik: 139 

UNDO, Funktionen abbrechen mit: 8 
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V: 

Variablen, lokale: 112 
Variableninhalte vertauschen: 165 
Variablenzeiger: 173 
VDI-Aufruf: 174 
Vergleichsoperatoren: 42 
Voreinstellungen: 19f 
Vorzeichen: 164f 
VT-52 Steuerzeichen: 187 

W: 

Werte zuriickgeben: 153f 
Wiederholungsfunktion: 28 
Wurzel einer Zahl: 163 

X: 

XBIOS-Aufruf: 187 
XBIOS-Funktionen: 201 


Z: 

Zeichenabfrage: 96 
Zeichenkette: 32 
Zeichenkette eingeben: 97f, 108 
Zeiger auf interne Tabelle: 158 
Zeile des Cursors: 67 
Zeilen einfvigen: 7 
Zeilennummern: 19 
Zeilennummern neu: 150 
Zeit einstellen: 169 



